home *** CD-ROM | disk | FTP | other *** search
/ Retro Gamer 15 / Retro Gamer 15.iso / MSX Emulators / blueMSXv160.exe / Contrib / cbios / src / cb_main.a80 < prev    next >
Text File  |  2003-08-13  |  75KB  |  3,651 lines
  1. ; C-BIOS ver 0.17
  2. ;
  3. ; Copyright (c) 2002-2003 BouKiCHi.  All rights reserved.
  4. ; Copyright (c) 2003 Reikan.  All rights reserved.
  5. ;
  6. ; Redistribution and use in source and binary forms, with or without
  7. ; modification, are permitted provided that the following conditions
  8. ; are met:
  9. ; 1. Redistributions of source code must retain the above copyright
  10. ;    notice, this list of conditions and the following disclaimer.
  11. ; 2. Redistributions in binary form must reproduce the above copyright
  12. ;    notice, this list of conditions and the following disclaimer in the
  13. ;    documentation and/or other materials provided with the distribution.
  14. ;
  15. ; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  16. ; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  17. ; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  18. ; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  19. ; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  20. ; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  21. ; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  22. ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  23. ; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  24. ; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  25. ;
  26. ;
  27. ; [date]
  28. ; 2002-08-07 start development.
  29. ; 2002-08-09 it's my birthday,this version was playable games.
  30. ; 2002-08-13 added fonts and key input routine,displayed infomation.
  31. ;
  32. ; 2002-08-15 improved cartridge knowledge.
  33. ; 2002-08-19 added DCOMPR function and adjusted wait.
  34. ; 2002-08-20 added initilize table of $fcc2-$fcc4
  35. ;            added in_joy and in_trig
  36. ;            filesize reduced from 32KB to 16KB.
  37. ;         set.bat can be restoring for only 32kb readable emulators. 
  38. ; 2002-08-21 name of this project was changed.
  39. ; 2002-08-24 added INITGRP,CHGMOD and sound_init.
  40. ; 2002-08-26 added initialize value of GRP??? and MLT???.
  41. ;            re-adjust memory ack function.
  42. ;            added calling H.STKE function.
  43. ;            re-adjust routines.
  44. ; 2002-08-27 added sound mode.
  45. ;            syntax adjust for other assemblers.
  46. ;            fixed RDPRIM.
  47. ; 2002-09-08 fixed WRSLT.
  48. ;            added keyboard routine.
  49. ;            added GTSTCK and GTTRIG.
  50. ; 2002-09-10 improved clearing memory routine.
  51. ;            added memory saving trap.
  52. ; 2002-09-11 added print_error function.
  53. ;            added ROM searching and fixed usage of EXPTBL.
  54. ; 2002-09-12 initilize from RG8SAV to RG23
  55. ;            ENASLT returns state of disable interrupt.
  56. ; 2002-09-16 added half of system font.
  57. ; 2002-09-18 added CHPUT routine.
  58. ;            rewrite curs2de and de2curs routine again.
  59. ; 2002-09-19 improved stroke speed of keyboard input.
  60. ;         added scroll routines.
  61. ;         fixed init_grp.
  62. ; 2002-09-22 fixed init_sc5.
  63. ; 2002-09-23 added disk routine.
  64. ; 2002-09-25 rewrite ENASLT.
  65. ;            added init_sc7.
  66. ; 2002-09-26 fixed keyboard routine.
  67. ; 2002-10-02 improved init_sc5.
  68. ; 2003-04-16 divided sound routine from main kernel.
  69. ; 2003-06-01 fixed chgmod related. (init_txt, init_txt32 font load added)
  70. ;            fixed curs2de, de2curs (screen1 support added)
  71. ; 2003-08-10 fixed clear problem in init_txt, init_txt32.
  72. ;            fixed scroll in CHPUT on txt40/graphic1 modes.
  73.  
  74. ;        title "C-BIOS ver 0.17 by BouKiCHi/Reikan"
  75.  
  76. ;---------------------------------------------------
  77. ; I/Oé╞âtâbâNé╠ÆΦï`
  78.  
  79. PRN_STAT        equ $90        ; âvâèâôâ^é╠âXâeü[â^âX
  80. VDP_RP          equ $98        ; VDPâ|ü[âgô╟é▌Åoé╡
  81. VDP_STAT        equ $99        ; VDPâXâeü[â^âXüAâëâbâ`âèâZâbâgüB
  82. PSL_STAT        equ $A8        ; âXâìâbâgâXâeü[â^âX
  83. KBD_STAT        equ $A9        ; âLü[â{ü[âhâXâeü[â^âX
  84. GIO_REGS        equ $AA        ; æììçIOâîâWâXâ^
  85. PPI_REGS        equ $AB        ; PPIâîâWâXâ^
  86.  
  87. PSG_REGS        equ $A0        ; PSGâîâWâXâ^ö╘ìå
  88. PSG_DATA        equ $A1        ; PSGâfü[â^
  89. PSG_STAT        equ $A2        ; PSGâXâeü[â^âX
  90.  
  91.  
  92. MAP_REG1        equ $FC        ; RAMâ}âbâpü[ 0000h-3FFFh
  93. MAP_REG2        equ $FD        ; RAMâ}âbâpü[ 4000h-7FFFh
  94. MAP_REG3        equ $FE        ; RAMâ}âbâpü[ 8000h-BFFFh
  95. MAP_REG4        equ $FF        ; RAMâ}âbâpü[ C000h-FFFFh
  96.  
  97. VDP_DATA        equ $98        ; VDPâfü[â^Åæé½ì₧é▌
  98. VDP_ADDR        equ $99        ; VDPâAâhâîâX
  99. VDP_PALT        equ $9A        ; VDPâpâîâbâgâëâbâ`
  100. VDP_REGS        equ $9B        ; VDPâîâWâXâ^âAâNâZâX
  101.  
  102. H_KEYI          equ $FD9A      ; âLü[â{ü[âhèäéΦì₧é▌âtâbâN
  103. H_TIMI          equ $FD9F      ; â^âCâ}ü[èäéΦì₧é▌âtâbâN
  104. H_NMI           equ $FDD6      ; NMIâtâbâN
  105. H_STKE          equ $FEDA      ; âXâ^âbâNâGâëü[âtâbâN
  106.  
  107. STKTOP          equ $F674
  108.  
  109. EXP_TBL         equ $FCC1      ; âXâìâbâgÅεò±âeü[âuâï
  110. SLT_TBL         equ $FCC5      ; âXâìâbâgÅεò±
  111.  
  112. EXBRSA          equ $FAF8      ; âTâuâìâÇê╩Æu
  113. SSL_REGS        equ $FFFF      ; ègÆúâXâìâbâgæIæ≡âîâWâXâ^
  114.  
  115. ;----------------------------------------------
  116. ; âÅü[âNâGâèâA
  117.  
  118. GRPNAM          equ $F3C7      ; Screen2 Name
  119. GRPCOL          equ $F3C9      ; Screen2 Color
  120. GRPCGP          equ $F3CB      ; Screen2 CG pattern
  121. GRPATR          equ $F3CD      ; Screen2 Attribute
  122. GRPPAT          equ $F3CF      ; Screen2 Sprite pattern
  123.  
  124. TXTNAM          equ $F3B3
  125. TXTCOL          equ $F3B5
  126. TXTCGP          equ $F3B7
  127. TXTATR          equ $F3B9
  128. TXTPAT          equ $F3BB
  129.  
  130. T32NAM          equ $F3BD
  131. T32COL          equ $F3BF
  132. T32CGP          equ $F3C1
  133. T32ATR          equ $F3C3
  134. T32PAT          equ $F3C5
  135.  
  136.  
  137. NAMBAS          equ $F922
  138. CGPBAS          equ $F924
  139. PATBAS          equ $F926
  140. ATRBAS          equ $F928
  141.  
  142. MLTNAM          equ $F3D2      ; Screen3 Name
  143. MLTCOL          equ $F3D4      ; Screen3 Color
  144. MLTCGP          equ $F3D6      ; Screen3 CG pattern
  145. MLTATR          equ $F3D8      ; Screen3 Attribute
  146. MLTPAT          equ $F3DA      ; Screen3 Sprite pattern
  147.  
  148. CLIKSW          equ $F3DB      ; Key Click.
  149.  
  150. STATFL          equ $F3E7
  151. RG0SAV          equ $F3DF
  152. RG1SAV          equ $F3E0
  153.  
  154. RG4SAV          equ $F3E3
  155.  
  156. RG8SAV          equ $FFE7
  157.  
  158. CLIKFL          equ $FBD9
  159. OLDKEY          equ $FBDA
  160. NEWKEY          equ $FBE5
  161. KEYBUF          equ $FBF0
  162.  
  163. PUTPNT          equ $F3F8      ; âLü[âoâbâtâ@é╓é╠â|âCâôâ^
  164. GETPNT          equ $F3FA      ; âLü[âoâbâtâ@é╓é╠â|âCâôâ^
  165. LIMPNT          equ $FC17      ; âLü[âoâbâtâ@é╓é╠â|âCâôâ^
  166.  
  167. BOTTOM          equ $FC48
  168. HIMEM           equ $FC4A
  169.  
  170. JIFFY           equ $FC9E      ; â^âCâ}ü[âJâEâôâ^
  171. SCRMOD          equ $FCAF
  172.  
  173.  
  174. FORCLR          equ $F3E9
  175. BAKCLR          equ $F3EA
  176. BDRCLR          equ $F3EB
  177.  
  178. PSG_DBG         equ $F3EC      ; âfâoâbâOùpâtâëâO
  179.  
  180. CSRY            equ $F3DC      ; âJü[â\ü[âïê╩Æu(Yì└òW)
  181. CSRX            equ $F3DD      ; âJü[â\ü[âïê╩Æu(Xì└òW)
  182.  
  183. LINL40          equ $F3AE
  184. LINL32          equ $F3AF
  185. LINLEN          equ $F3B0      ; ìsÉö.
  186. CRTCNT          equ $F3B1      ; ëµû╩é╠îàÉö
  187.  
  188. LINWRK          equ $FC18      ; 40îàò¬é╠âoâbâtâ@
  189.  
  190. ESCCNT          equ $FCA7      ; ESCùpâJâEâôâ^.
  191.  
  192. ;-----------------
  193. ; âfâoâbâOâïü[â`âôùpâüâéâè
  194. ;-----------------
  195.  
  196. DISPADDR        equ $E010   ; â_âôâvâAâhâîâXùpâüâéâè
  197. LASTSTAC        equ $E000
  198. SP_REGS         equ $E002 
  199.  
  200. ;---------------------
  201. ; âWâââôâvâeü[âuâï
  202. ;---------------------
  203.  
  204. ;start
  205. Start 
  206.         code
  207. ;0000h CHKRAM
  208. chkram
  209.         org     $0000
  210.         di
  211.         jp      soft_reset
  212.  
  213. ;âtâHâôâgé╓é╠â|âCâôâ^
  214.  
  215.         org     $0004
  216.         dw      B_Font
  217.  
  218.         org     $0006
  219.  
  220. rdvdpa  db      VDP_DATA ; VDPô╟é▌Åoé╡â|ü[âg
  221. wrvdpa  db      VDP_DATA ; VDPÅæé½ì₧é▌â|ü[âg
  222.  
  223. ;0008h SYNCHR
  224. synchr
  225.         org     $0008
  226.         ret
  227.  
  228. ;000Ch RDSLT    öCê╙âXâìâbâgé⌐éτé╠âüâéâèô╟é▌ì₧é▌
  229.  
  230.         org     $000c
  231.         jp      rdslt
  232.  
  233. chrgtb
  234.         org     $0010
  235.         ret
  236.  
  237. ;0014h WRSLT    öCê╙âXâìâbâgé╓é╠âüâéâèÅæé½ì₧é▌
  238.         org     $0014
  239.         jp      wrslt
  240.         ret
  241. ;0018h OUTDO
  242.         org     $0018
  243.         jp      ch_put
  244. ;001Ch CALSLT    âCâôâ^ü[âXâìâbâgâRü[âïâïü[â`âô
  245. calslt
  246.         org     $001c
  247.         jp      cal_slt
  248.         ret
  249.  
  250. ;0020h DCOMPR    HLé╞DEé╠öΣèr
  251. dcompr  org     $0020
  252.         jp      wordcomp
  253.         ret
  254.  
  255. ;0024h ENASLT    âXâìâbâgé╠ò╧ìX
  256.  
  257.         org     $0024
  258.         jp      enaslt
  259.  
  260. ;0028h MATH-PACK
  261.         org     $0028
  262.         ret
  263.  
  264. ;002D âoü[âWâçâôIDôÖ
  265. romid
  266.         org     $002d
  267. ; version ID
  268.         db      0 ; 0 .. msx1 ,1 .. msx2
  269.         db      0 ; ??
  270.         db      0 ; ??
  271.  
  272. ;0030h CALLF    âCâôâ^ü[âXâìâbâgî─é╤Åoé╡(RST30hö┼)
  273.         org     $0030
  274.         jp      call_lf
  275.  
  276. ;0038h INT_38    èäéΦì₧é▌âïü[â`âô(RST38,VBlank,Timer...) 
  277.         org     $0038
  278.         jp      int_start
  279.  
  280. ;0038h INITIO    I/Oé╠Åëè·ë╗
  281.         org     $003b
  282.         ret
  283.  
  284. ;0041h DISSCR    âXâNâèü[âôé≡ò\Īé│é╣é╚éóüB
  285.         org     $0041
  286.         jp      disscr
  287. ;0044h ENASCR    âXâNâèü[âôé≡ò\Īé│é╣éΘüB
  288.         org     $0044
  289.         jp      enascr
  290. ;---------------
  291. ;VDPâïü[â`âô
  292. ;---------------
  293. ;0047h WRTVDP
  294.         org     $0047
  295.         jp    wrt_vdp
  296. ;004Ah RDVRM
  297.     org    $004a
  298.     jp    rd_vrm
  299. ;004Dh WRTVRM
  300.         org    $004d
  301.         jp      wrt_vrm
  302.  
  303.  
  304. ;0050h SETRD
  305.         org     $0050
  306.         jp      vdp_setrd
  307.  
  308. ;0053h SETWRT  .. VRAMÅæé½ì₧é▌âAâhâîâXé╠É▌ÆΦ  
  309.         org     $0053
  310.         jp      vdp_setwrt
  311.  
  312.         org     $0056
  313.         jp      vdp_fillmem
  314.         org     $0059
  315.         jp      vdp_ldirmv   ; VRAM -> Memory
  316.         org     $005C
  317.         jp      vdp_data_rep ; Memory -> VRAM
  318.  
  319. ;005Fh VDPâXâNâèü[âôâéü[âhé╠ò╧ìX
  320.        org      $005f
  321.        jp       chgmod
  322.                 
  323. ;0062h  CHGCLR
  324.        org      $0062
  325.        jp       chgclr
  326.         
  327.  
  328. ;0066h INT_NMI .. NMIèäéΦì₧é▌
  329.         org     $0066
  330.         jp      nmi_int
  331.  
  332. ;0069h CLRSPR  .. âXâvâëâCâgé≡Å┴ïÄüB
  333.  
  334.         org     $0069
  335.         ret
  336.  
  337. ;006Ch INITXT    ëµû╩é≡TEXT1âéü[âhé╔Åëè·ë╗üB
  338.     org    $006C
  339.     jp    init_txt
  340.  
  341. ;006Fh INIT32    ëµû╩é≡GRAPHIC1âéü[âhé╔Åëè·ë╗üB
  342.     org    $006F
  343.     jp    init_txt32
  344.  
  345. ;0072h INITGRP    ëµû╩é≡GRAPHIC2âéü[âhé╔Åëè·ë╗üB
  346.  
  347.         org     $0072
  348.         jp      init_grp
  349.  
  350. ;007Eh  SETGRP
  351.         org     $007E
  352.         jp      set_grp
  353.  
  354. ;0085h DOLINE    âëâCâôò`ëµ
  355. doline
  356.         org     $0085
  357.         ret
  358. ;0089h GRPPRT    basic?
  359. grpprt
  360.         org     $0089
  361.         ret
  362.  
  363.         org     $008a
  364.         ret
  365. ;
  366. ;0090h GICINI    ë╣î╣ICé╠Åëè·ë╗
  367.         org     $0090
  368.         jp      sound_init
  369.         org     $0093
  370.         jp      sound_out
  371.         org     $0096
  372.         jp      sound_stat
  373.  
  374. ;009Ch CHSNS  .. âLü[âoâbâtâ@é╠â`âFâbâN
  375.  
  376.         org     $009c
  377.         jp      ch_sns
  378.  
  379. ;009Fh CHGET .. âLü[âoâbâtâ@é⌐éτâfü[â^é≡ô╛éΘ
  380.  
  381.         org     $009f
  382.         jp      ch_get
  383.  
  384. ;00A2h  CHPUT .. âfâBâXâvâîâCé╠âLâââëâNâ^é≡Åoù═é╖éΘüB
  385.  
  386.         org     $00a2
  387.         jp      ch_put
  388.  
  389. ;00C6h  POSIT .. âJü[â\âïê┌ô«üB
  390.     org     $00c6
  391.     jp    curxy
  392.  
  393. ;00D5h GTSTCK .. âWâçâCâXâeâBâbâNÅεò±é≡ô╛éΘüB
  394.  
  395.         org     $00d5
  396.         jp      in_joy
  397.  
  398. ;00D8h GTTRIG .. âgâèâKü[Åεò±é≡ô╛éΘüB
  399.  
  400.         org     $00d8
  401.         jp      in_trig
  402.  
  403. ;012Dh WRTVDP .. VDPâîâWâXâ^é╠Ælé≡ò╧ìXé╖éΘ
  404.  
  405.         org     $012d
  406.         ret
  407.  
  408. ;0131h VDPSTA .. VDPâXâeü[â^âXé≡ô╟é▌Åoé╖
  409. ;vdpsta
  410.         org     $0131
  411.         ret
  412.  
  413.  
  414. ;chgsnd
  415.         org     $0135
  416.         ret
  417.  
  418. ;0138h RDSLTREG âvâëâCâ}âèâXâìâbâgé╠Åεò±é≡ô╟é▌Åoé╖
  419. ;g_slotreg
  420.         org     $0138
  421.         jp      get_slotreg
  422.  
  423. ;013Bh WRSLTREG âvâëâCâ}âèâXâìâbâgé╔Åεò±é≡Åæé½ì₧é▐üB
  424. ;s_slotreg
  425.         org     $013B
  426.         jp      set_slotreg
  427.  
  428. ;013Eh RDVDP    VDPâXâeü[â^âXé╠ô╟é▌Åoé╡
  429.         org     $013E
  430.         jp      vdp_stat_in
  431.  
  432. ;setpag  org    $013d
  433. ;        ret
  434.  
  435. ;0141h SNSMAT    âLü[â}âgâèâNâXé≡ô╛éΘ
  436. ;snsmat
  437.         org     $0141
  438.         jp      in_keyboard
  439.  
  440. ;phydio
  441.         org     $0144
  442.         ret
  443.  
  444. ;0145h RSTPLT
  445. ;rstplt
  446.         org     $0145
  447.         ret
  448.  
  449. ;0149h RSTPLT?
  450. ;rstplt
  451.         org     $0149
  452.         ret
  453.  
  454. ;getplt
  455.         org     $014d
  456.         ret
  457.  
  458. ;0156h KILBUF    âLü[â{ü[âhâoâbâtâ@é≡âNâèâAé╖éΘ
  459.         org     $0156
  460.         jp      kilbuf
  461.  
  462. ;0159h CALBAS    âxü[âVâbâNâCâôâ^âvâèâ^é≡î─é╤Åoé╖üB
  463.         org     $0159
  464.         jp      call_basic_intr
  465.  
  466. ;beep
  467.         org     $017d
  468.         ret
  469.  
  470. ;prompt
  471.         org     $0181
  472.         ret
  473.  
  474. ;newpad
  475.         org     $01ad
  476.         ret
  477.  
  478. ;chgmdp
  479.         org     $01b5
  480.         ret
  481.  
  482. ;knjprt
  483.         org     $01bd
  484.         ret
  485.  
  486. ;redclk
  487.         org     $01f5
  488.         ret
  489.  
  490. ;wrtclk
  491.         org     $01f9
  492.         ret
  493.  
  494. ; -------------------
  495. ; âXâ^ü[âgâAâbâvâRü[âhüiâèâZâbâgÄ₧é╔î─é╤Åoé│éΩéΘüj
  496. ; -------------------
  497.  
  498.         org     $0200
  499. soft_reset
  500. ;âfâoâbâOùp
  501. ;        ex     (sp),hl
  502. ;        ld     (LASTSTAC),hl
  503. ;
  504. ;        ld     hl,$0000
  505. ;        add    hl,sp
  506. ;        ld     (SP_REGS),hl
  507. ;
  508. ;        ld     hl,$f300
  509.  
  510. ; âCâôâ^ü[âtâFü[âXé≡Åëè·ë╗é╖éΘüB
  511.         ld      a,$82
  512.         out     (PPI_REGS),a
  513.         ld      a,$50
  514.         out     (GIO_REGS),a
  515.  
  516. ;âüâéâèâoâôâNé≡Åëè·ë╗é╖éΘüB
  517.  
  518.         xor     a,a
  519. ;        out    (MAP_REG1),a
  520.         inc     a
  521.         out     (MAP_REG2),a
  522.         inc     a
  523.         out     (MAP_REG3),a
  524.         inc     a
  525.         out     (MAP_REG4),a
  526.  
  527. ;âüâéâèâ`âFâbâNüAæIæ≡âXâìâbâgé≡âüâéâèé╔Åæé½ì₧é▐üB
  528. ; C = âvâëâCâ}âè,B = âZâJâôâ_âèüB
  529.  
  530.         ld      bc,$0303
  531. chk_wrt_ram               ; âyü[âWéRé╠RAMé≡â`âFâbâNé╖éΘüB
  532.         in      a,(PSL_STAT)
  533.         and     a,$3F
  534.         ld      e,a
  535.  
  536.         ld      a,c
  537.         and     a,$03
  538.         rrca
  539.         rrca
  540.         or      a,e     
  541.         out     (PSL_STAT),a ; A = BBxxxxxx
  542.  
  543.         ld      a,(SSL_REGS)
  544.         cpl
  545.         and     a,$3F
  546.         ld      e,a
  547.  
  548.         ld      a,b
  549.         and     a,$03
  550.         rrca
  551.         rrca
  552.         or      a,e
  553.         ld      (SSL_REGS),a ; A = EExxxxxx 
  554.         ld      e,a
  555.  
  556.         ld      a,$12
  557.         ld      ($c010),a
  558.         ld      a,($c010)
  559.         cp      a,$12
  560.         jr      nz,cant_wrt
  561.         jp      ram_ok
  562. cant_wrt
  563.         dec     b
  564.         jp      p,chk_wrt_ram
  565.         ld      b,$03
  566.         dec     c
  567.         jp      p,chk_wrt_ram
  568.         ld      de,str_memory_err
  569.         jp      print_error
  570.  
  571. ram_ok
  572.         ld      hl,SLT_TBL
  573.         ld      b,0
  574.         ld      c,a
  575.         add     hl,bc
  576.  
  577.         ld      a,e
  578.         ld      (hl),a        ;ègÆúâXâìâbâg
  579.  
  580.         and     a,$0C
  581.  
  582.         in      a,(PSL_STAT)
  583.         and     a,$03
  584.         or      a,$80
  585.         ld      (EXP_TBL),a    ;MAIN-ROMé╠ê╩Æu
  586.         and     a,$80
  587.         ld      (EXP_TBL+1),a
  588.         ld      (EXP_TBL+2),a
  589.         ld      (EXP_TBL+3),a
  590.  
  591. ; you can write the memory.
  592.  
  593.  
  594. ;----------------------
  595. ;âåü[âUü[âCâôâ^ü[âtâFü[âX
  596. ;----------------------
  597.  
  598.  
  599.         ld      hl,$f300
  600.         ld      sp,hl        ; âXâ^âbâNé≡$f300é╔üB
  601.  
  602.         call    init_ram
  603.  
  604.         call    check_rom
  605.  
  606. ;        in      a,(PSL_STAT)
  607. ;        ld      ($F000),a
  608. ;        call    p3_chk
  609.  
  610.         call    init_vdp
  611.  
  612.         xor     a,a
  613.         ld      (PSG_DBG),a
  614.  
  615.         call    sound_init
  616.  
  617.         ei
  618.  
  619.         call    disp_info
  620.         call    start_cartprog
  621.  
  622. ;----------------------
  623. ;âJü[âgâèâbâWé≡Ä└ìsé╖éΘ
  624. ;----------------------
  625.  
  626. start_game
  627.         in      a,(PSL_STAT)
  628.         rrca
  629.         rrca
  630.         and     a,$03
  631.         cp      a,$03
  632.         jr      z,dont_chgscr
  633.         ld      a,$01
  634.         call    chgmod
  635. dont_chgscr
  636.         ld      hl,stack_error
  637.         push    hl
  638.         ld      a,($4000)
  639.         cp      a,'A'
  640.         jr      nz,p3_run
  641.         ld    hl,($4002)    ; âJü[âgâèâbâWèJÄnâAâhâîâXüB
  642.         jr      prg_jumper
  643. p3_run
  644.         ld      hl,($8002)      ; âJü[âgâèâbâWèJÄnâAâhâîâXüB
  645. prg_jumper
  646.         jp    (hl)        ; Ä└ìs...
  647.  
  648.  
  649. ;-------------------------------
  650. ; Åεò±ò\Ī
  651. ;-------------------------------
  652. disp_info
  653.  
  654. ; âVâtâgâLü[é¬ëƒé│éΩé─éóéΩé╬debug_modeé╓üB
  655. ;
  656.         ld      a,$06
  657.         call    in_keyboard
  658.         bit     0,a
  659.         jp      z,debug_mode
  660.  
  661.  
  662. ; âvâìâOâëâÇÅεò±é╠ò\Ī
  663.  
  664.         ld      hl,str_proginfo   ; HL = ò╢ÄÜù±âAâhâîâX
  665.         call    prn_text
  666.  
  667.         
  668.         ld      a,($4000)
  669.         cp      a,'A'
  670.         ret     z
  671.         ld      a,($8000)
  672.         cp      a,'A'
  673.         ret     z
  674.  
  675.         ld      hl,str_nocart
  676.         call    prn_text
  677.  
  678.         jp      hang_up_mode
  679.  
  680.  
  681. ;----------------------------
  682. start_cartprog
  683. ; âXâìâbâgÅπé╔âJü[âgâèâbâWé¬æ╢ì▌é╡é╜é╚éτüA
  684. ; é╗é╠âXâìâbâgé╠âvâìâOâëâÇé≡Ä└ìsé╖éΘüB
  685.  
  686.  
  687.         ld      hl,str_slot
  688.         call    prn_text
  689.  
  690.         call    get_slotreg
  691.         rrca
  692.         rrca
  693.         and     a,$03
  694.  
  695.  
  696.         ld      d,$00
  697.         ld      e,a
  698.         push    de
  699.  
  700.         call    vout_hex8
  701.         call    vout_hyphen
  702.  
  703.         pop     de
  704.         ld      hl,SLT_TBL
  705.         add     hl,de
  706.         ld      a,(hl)
  707.         rrca
  708.         rrca
  709.         and     a,$03
  710.         call    vout_hex8
  711.  
  712. ;âfâoâbâOé╞ô«ì∞â`âFâbâN
  713.  
  714. ;        call    check_sum
  715.  
  716. ;        ld      a,(SMOD_TSTSND)
  717. ;        or      a,a
  718. ;        jr      z,stst_skip
  719.  
  720. ;âTâEâôâhâéü[âhùp
  721. ;        ld      hl,str_canstst
  722. ;        call    prn_text
  723.  
  724. stst_skip
  725.         ld      b,120      ; 2sec wait (1 = 1/60sec)
  726.         call    wait_key07 ; wait routine
  727.  
  728. ;âTâEâôâhâéü[âhùp
  729. ;        bit     7,a
  730. ;        call    z,sound_mode
  731.  
  732.         bit     5,a
  733.         jp      z,sh_keyboard
  734.         bit     0,a
  735.         jp      z,debug_mode
  736.  
  737.         ld      hl,str_crlf
  738.         call    prn_text
  739.  
  740.         ld      hl,str_run
  741.         call    prn_text
  742.  
  743.         call    dbg_reg
  744.  
  745.         ld      b,60       ; 1sec
  746.         call    wait_b
  747.  
  748.         ret
  749.  
  750. ; ------
  751. ; BIOSâfâoâbâOâïü[â`âô
  752. ; ------
  753. ; HL ... NEWKEYé╠âAâhâîâX .
  754. ; 
  755. sh_keyboard
  756.         call    init_vdp
  757. kbd_lp
  758.         ld      a,1
  759.         ld      (CSRX),a
  760.         ld      (CSRY),a
  761.         ld      hl,NEWKEY
  762.  
  763.         ld      b,10
  764. kbd_byteread
  765.         push    bc
  766.         ld      a,(hl)
  767.         inc     hl
  768.         ld      b,8
  769. kbd_shift
  770.         rlca
  771.         push    af
  772.         jr      c,kbd_on
  773. ;Bit[n] = 0
  774.         ld      a,'0'
  775.         call    ch_put
  776.         pop     af
  777.         jr      kbd_lpchk
  778. ;Bit[n] = 1
  779. kbd_on
  780.         ld      a,'1'
  781.         call    ch_put
  782.         pop     af
  783. kbd_lpchk
  784.         djnz    kbd_shift
  785.         pop     bc
  786.         ld      a,$0d
  787.         call    ch_put
  788.         ld      a,$0a
  789.         call    ch_put
  790.  
  791.         djnz    kbd_byteread
  792.  
  793.         jp      kbd_lp
  794.  
  795.  
  796. sh_debug
  797.         ex      (sp),hl
  798.         ld      (LASTSTAC),hl
  799.  
  800. debug_mode
  801.         ; âèâ^ü[âôâRü[âhé≡âtâbâNé╔ûäé▀ì₧é▐üB
  802.         ld      a,$C9
  803.         ld      (H_KEYI),a
  804.         ld      (H_TIMI),a
  805.  
  806.         call    init_vdp
  807.  
  808.         ld      a,1
  809.         ld      (CSRX),a
  810.         ld      a,1
  811.         ld      (CSRY),a
  812.  
  813.         ld      hl,$4000    ; âyü[âW1é⌐éτò\Īé╖éΘüB
  814.         ld      (DISPADDR),hl 
  815.  
  816.         ld      ix,(LASTSTAC)
  817.         call    vout_hex16
  818.  
  819.         ld      a,' '
  820.         call    ch_put
  821.  
  822.         ld      ix,(SP_REGS)
  823.         call    vout_hex16
  824. loop_dump
  825.         call    disp_dump
  826.         call    dump_keywait
  827.         jr      loop_dump
  828.  
  829.  
  830. ;-----------------
  831. ; â_âôâvùpâïü[â`âô
  832. ;-----------------
  833.  
  834. disp_dump
  835.  
  836.         ld      a,1
  837.         ld      (CSRX),a
  838.         ld      a,3
  839.         ld      (CSRY),a
  840.  
  841.         ld      ix,(DISPADDR)
  842.         ld      c,$10   ; RegC = rows
  843.  
  844. dump_lp
  845.  
  846.         push    bc
  847.         call    vout_hex16
  848.         pop     bc
  849.         ld      a,':'
  850.         call    ch_put
  851.         ld      b,$10   ; RegB = cols
  852. d16_lp
  853.         ld      a,(ix)
  854.         push    bc
  855.         call    vout_hex8
  856.         pop     bc
  857.         inc     ix
  858.         djnz    d16_lp
  859.  
  860.         dec     c
  861.         jr      nz,dump_lp
  862.  
  863.         ret
  864.  
  865. ;-------------------------
  866. ; âLü[âïü[âvùpâEâFâCâg
  867. dump_keywait
  868.  
  869.         ld      e,$02
  870.  
  871.         ld      a,($E008)
  872.         ld      d,a 
  873.  
  874.         ld      a,$08
  875.         call    in_keyboard
  876.  
  877.         cp      a,d
  878.         jr      z,dumpkey_loop
  879.         ; case of A != E008
  880.         ld      ($E008),a
  881.         ld      e,$10  ; 
  882.  
  883. dumpkey_loop
  884.         halt
  885.         ld      a,($E008)
  886.         ld      d,a 
  887.  
  888.         ld      a,$08
  889.         call    in_keyboard
  890.  
  891.         dec     e
  892.         jr      z,skip_kchk
  893.         cp      a,d
  894.         jr      z,dumpkey_loop
  895.  
  896. skip_kchk
  897.         push    af
  898.         ld      a,$06
  899.         call    in_keyboard
  900.         bit     0,a
  901.         jr      nz,norm
  902.         ld      iy,$1000
  903.         jr      bit_chk
  904. norm
  905.         ld      iy,$100
  906. bit_chk
  907.         pop     af
  908.  
  909.         bit     7,a
  910.         jr      z,on_pagedown
  911.         bit     6,a
  912.         jr      z,on_down
  913.         bit     5,a
  914.         jr      z,on_up
  915.         bit     4,a
  916.         jr      z,on_pageup
  917.  
  918.         ld      ($E008),a
  919.  
  920.         ld      a,$07
  921.         call    in_keyboard
  922.  
  923.         bit     1,a
  924.         jr      z,on_start
  925.  
  926.         jp      dumpkey_loop
  927.  
  928. on_pagedown
  929.         push    iy
  930.         pop     bc
  931.         jr      up_addr
  932. on_pageup
  933.         push    iy
  934.         pop     bc
  935.         jr      down_addr
  936. on_down
  937.         ld      bc,$10
  938.         jr      up_addr
  939. on_up
  940.         ld      bc,$10
  941.         jr      down_addr
  942.  
  943. up_addr
  944.         ld      hl,($E010)
  945.         add     hl,bc
  946.         ld      ($E010),hl
  947.         ret
  948. down_addr
  949.         ld      hl,($E010)
  950.         and     a
  951.         sbc     hl,bc
  952.         ld      ($E010),hl
  953.         ret
  954.  
  955. on_start
  956.         jp      start_game
  957.  
  958.  
  959. ;--------------------
  960. ;VDPâïü[â`âôé╠Åëè·ë╗
  961. ;--------------------
  962.  
  963. init_vdp
  964.         in      a,(VDP_STAT)    ; âëâbâ`é╠Åëè·ë╗
  965.  
  966.         ld      bc,$0000  ; R#0
  967.         call    wrt_vdp
  968.         ld      bc,$7001  ; R#1
  969.         call    wrt_vdp 
  970.         ld      bc,$0002  ; R#2  
  971.         call    wrt_vdp
  972.         ld      bc,$8003  ; R#3
  973.         call    wrt_vdp
  974.         ld      bc,$0104  ; R#4  
  975.         call    wrt_vdp
  976.  
  977.         call    clr_text40
  978.  
  979.         ld      a ,$00
  980.         ld      hl,$0800
  981.         ld      bc,$0800
  982.         call    vdp_fillmem
  983.  
  984. ;                for screen 1 color table
  985.         ld      a ,$F5
  986.         ld      hl,$2000
  987.         ld      bc,$0020
  988.         call    vdp_fillmem
  989.  
  990.  
  991.  
  992. ; PatGenTbl
  993. ;        76543210 76543210
  994. ;        00000100 00000000
  995. ;             04h      00h
  996.  
  997.         ld      bc,$F507  ; R#7
  998.         call    wrt_vdp
  999.  
  1000.         in      a,(VDP_STAT)    ;ü@âëâbâ`é╠Åëè·ë╗
  1001.  
  1002.         ld      hl,B_Font
  1003.  
  1004.         ld      de,$800
  1005.         ld      bc,$800
  1006.         call    vdp_data_rep
  1007.  
  1008.  
  1009.         ret
  1010.  
  1011. ;------------------------
  1012. ; ëµû╩ò\Īé│éΩé─éóéΘâeâLâXâgé≡âNâèâAé╖éΘüB
  1013. clr_text40
  1014.         xor     a,a
  1015.         ld      bc,$0400
  1016.         ld      hl,(TXTNAM)
  1017.         call    vdp_fillmem
  1018.         ld      a,1
  1019.         ld      (CSRY),a
  1020.         ld      (CSRX),a
  1021.         ret
  1022.  
  1023. clr_text32
  1024.     xor    a,a
  1025.     ld    bc,$0300
  1026.     ld    hl,(T32NAM)
  1027.     call    vdp_fillmem
  1028.     ld    a,1
  1029.     ld    (CSRY),a
  1030.     ld    (CSRX),a
  1031.     ret
  1032.  
  1033. ;------------------------
  1034. ; RAMé╠Åëè·ë╗
  1035.  
  1036. init_ram
  1037.         
  1038. ; âÅü[âNâGâèâAÅëè·ë╗üB
  1039.  
  1040.         ld      a,$00
  1041.         ld      hl,$F380
  1042.         ld      (hl),a
  1043.         ld      de,$F381
  1044.         ld      bc,$C7D
  1045.     ldir
  1046.  
  1047. ;âèâ^ü[âôâRü[âhûäé▀ì₧é▌
  1048.         ld      a,$C9 ; ret code
  1049.         ld      hl,H_KEYI
  1050.         ld      (hl),a
  1051.         ld      de,H_KEYI+1
  1052.         ld      bc,$024D
  1053.         ldir
  1054.  
  1055. ;âLü[â}âgâèâNâXé╠Åëè·ë╗üB
  1056.         ld      a,$FF 
  1057.         ld      hl,OLDKEY
  1058.         ld      (hl),a
  1059.         ld      de,OLDKEY+1
  1060.         ld      bc,21
  1061.         ldir
  1062.  
  1063. ;âLü[âoâbâtâ@é╠Åëè·ë╗üB
  1064.         ld      a,$00 
  1065.         ld      hl,KEYBUF
  1066.         ld      (hl),a
  1067.         ld      de,KEYBUF+1
  1068.         ld      bc,39
  1069.         ldir
  1070.  
  1071.         ld      a,$00 
  1072.         ld      hl,$FFE7 ; RG8SAV
  1073.         ld      (hl),a
  1074.         ld      de,$FFE7+1
  1075.         ld      bc,15
  1076.         ldir
  1077.  
  1078. ;âAâhâîâXâ|âCâôâ^é≡É▌ÆΦüB
  1079.         ld      hl,KEYBUF
  1080.         ld      (PUTPNT),hl
  1081.         ld      (GETPNT),hl
  1082.  
  1083.         ld      hl,$8000
  1084.         ld      (BOTTOM),hl  ; âyü[âW1,2é═ROMüBâyü[âW3,4é═RAM.  
  1085.  
  1086.         ld      hl,$F380
  1087.         ld      (HIMEM),hl   ;  Ägùpë┬ö\âüâéâèé╠Åπî└
  1088.  
  1089.         ld      (STKTOP),hl  ;  BASICâXâ^âbâNé╠ê╩Æu
  1090.  
  1091.         ld      hl,disk_intr
  1092.         ld      a,$C3
  1093.         ld      (H_STKE),a
  1094.         ld      (H_STKE+1),hl
  1095.  
  1096. ;RDPRIMé≡RAMé╔ô]æùé╖éΘ.
  1097.  
  1098.         ld      hl,m_rdprim
  1099.         ld      de,$F380
  1100.  
  1101.         ld      bc,m_prim_end-m_rdprim
  1102.         ldir
  1103.  
  1104. ; screen 0 âeü[âuâïé╠Åëè·ë╗üB
  1105.     ld    hl,$0000
  1106.     ld    (TXTNAM),hl
  1107.     ld    hl,$0800
  1108.     ld    (TXTCGP),hl
  1109.  
  1110. ; screen 1 âeü[âuâïé╠Åëè·ë╗üB
  1111.         ld      hl,$1800
  1112.         ld      (T32NAM),hl
  1113.         ld      hl,$2000
  1114.         ld      (T32COL),hl
  1115.         ld      hl,$0000
  1116.         ld      (T32CGP),hl
  1117.         ld      hl,$1B00
  1118.         ld      (T32ATR),hl
  1119.         ld      hl,$3800
  1120.         ld      (T32PAT),hl
  1121.  
  1122. ; screen 2 âeü[âuâïé╠Åëè·ë╗
  1123.         ld      hl,$1800
  1124.         ld      (GRPNAM),hl
  1125.         ld      hl,$2000
  1126.         ld      (GRPCOL),hl
  1127.         ld      hl,$0000
  1128.         ld      (GRPCGP),hl
  1129.         ld      hl,$1B00
  1130.         ld      (GRPATR),hl
  1131.         ld      hl,$3800
  1132.         ld      (GRPPAT),hl
  1133.  
  1134. ; screen 3 âeü[âuâïé╠Åëè·ë╗
  1135.         ld      hl,$0800
  1136.         ld      (MLTNAM),hl
  1137.         ld      hl,$0000
  1138.         ld      (MLTCGP),hl
  1139.         ld      hl,$1B00
  1140.         ld      (MLTATR),hl
  1141.         ld      hl,$3800
  1142.         ld      (MLTPAT),hl
  1143.  
  1144. ; é╗é╠æ╝é╠É▌ÆΦüB
  1145.         ld      a,39
  1146.         ld      (LINL40),a
  1147.         ld      a,29
  1148.         ld      (LINL32),a
  1149. ;        ld      a,29
  1150.         ld      a,39
  1151.         ld      (LINLEN),a
  1152.         ld      a,24
  1153.         ld      (CRTCNT),a
  1154.  
  1155.         ld      a,$04
  1156.         ld      (BDRCLR),a
  1157.         ld      (BAKCLR),a
  1158.         ld      a,$0F
  1159.         ld      (FORCLR),a
  1160.  
  1161.         ld      a,$20
  1162.         ld      (RG1SAV),a
  1163.  
  1164.         ld      a,$08
  1165.         ld      (RG8SAV),a
  1166.  
  1167.  
  1168.         ret
  1169.  
  1170. ;----------------------
  1171. ;âTâuâìâÇê╩Æué╠îƒÅo
  1172. chksubpos
  1173.         ld      b,$03
  1174.         ld      hl,$0000
  1175. loop_subpos
  1176.         ld      a,b
  1177.         push    bc
  1178.         call    rdslt
  1179.         pop     bc
  1180.         cp      a,'C'
  1181.         jr      z,chked_c
  1182. slt_wrong
  1183.         djnz    loop_subpos
  1184.         xor     a,a
  1185.         ld      (EXBRSA),a
  1186.         ret
  1187. chked_c
  1188.         inc     hl
  1189.         ld      a,b
  1190.         push    bc
  1191.         call    rdslt
  1192.         pop     bc
  1193.         cp      a,'D'
  1194.         jr      z,chked_d
  1195.         dec     hl
  1196.         jr      slt_wrong
  1197. chked_d
  1198.         ld      a,b
  1199.         ld      (EXBRSA),a
  1200.         ret
  1201.  
  1202. ;------------------------
  1203. ;
  1204. ;âîâWâXâ^é╠ò\Ī
  1205. ;
  1206. dbg_reg
  1207.         push    ix
  1208.         push    iy
  1209.         push    hl
  1210.         push    de
  1211.         push    bc
  1212.         push    af
  1213.  
  1214.         ld      iy,6
  1215.  
  1216.         ld      a,1
  1217.         ld      (CSRX),a
  1218.         ld      a,14
  1219.         ld      (CSRY),a
  1220.  
  1221. dbg_loop
  1222.         pop     ix
  1223.         call    prn_hex
  1224.  
  1225.         dec     iy
  1226.  
  1227.         push    iy
  1228.         pop     bc
  1229.  
  1230.         xor     a,a
  1231.         or      a,c
  1232.  
  1233.         jp      nz,dbg_loop
  1234.         pop     ix
  1235.         push    ix
  1236.         jp      prn_hex ; âîâWâXâ^PCé╠ò\Ī
  1237.  
  1238.  
  1239. ;------------------------
  1240. prn_hex
  1241. ;BC = Reg
  1242.         call    prn_reg
  1243.         call    vout_hex16
  1244.  
  1245.         ld      a,' '
  1246.         call    ch_put
  1247.  
  1248.         ret
  1249.  
  1250. ;------------------------
  1251. prn_reg
  1252. ;
  1253.         push    hl
  1254.         push    bc
  1255.         push    iy
  1256.         pop     bc
  1257.  
  1258.         ld      a,c
  1259.         add     a,a
  1260.         add     a,a
  1261.         ld      c,a
  1262.         
  1263.         ld      hl,reg_tbl
  1264.         add     hl,bc
  1265.  
  1266.         ld      b,3
  1267. reg_lp
  1268.         ld      a,(hl)
  1269.         inc     hl
  1270.         call    ch_put
  1271.         djnz    reg_lp
  1272.  
  1273.         pop     bc
  1274.         pop     hl
  1275.         ret
  1276.  
  1277. ;------------------------
  1278. vout_hex16
  1279. ;16bitò¥é╠16ÉiÉöò\ĪüB
  1280. ;IX = number
  1281. ;dest = BC,HL,AF
  1282.         ; RegBÅπê╩4bit
  1283.         ld      hl,hex_tbl
  1284.         push    ix
  1285.         pop     bc
  1286.  
  1287.         ld      a,b
  1288.         rlca
  1289.         rlca
  1290.         rlca
  1291.         rlca
  1292.         and     a,$0F
  1293.  
  1294.         ld      b,0
  1295.         ld      c,a
  1296.         add     hl,bc
  1297.         ld      a,(hl)
  1298.         call    ch_put
  1299.  
  1300.  
  1301.         ; RegBë║ê╩4bit
  1302.         ld      hl,hex_tbl
  1303.         push    ix
  1304.         pop     bc
  1305.  
  1306.         ld      a,b
  1307.         and     a,$0F
  1308.  
  1309.         ld      b,0
  1310.         ld      c,a
  1311.         add     hl,bc
  1312.         ld      a,(hl)
  1313.         call    ch_put
  1314.  
  1315.         ; RegCÅπê╩4bit
  1316.         ld      hl,hex_tbl
  1317.         push    ix
  1318.         pop     bc
  1319.  
  1320.         ld      a,c
  1321.         rlca
  1322.         rlca
  1323.         rlca
  1324.         rlca
  1325.         and     a,$0F
  1326.  
  1327.         ld      b,0
  1328.         ld      c,a
  1329.         add     hl,bc
  1330.         ld      a,(hl)
  1331.         call    ch_put
  1332.  
  1333.         ; RegC ë║ê╩ 4bit
  1334.         ld      hl,hex_tbl
  1335.         push    ix
  1336.         pop     bc
  1337.  
  1338.         ld      a,c
  1339.         and     a,$0F
  1340.  
  1341.         ld      b,0
  1342.         ld      c,a
  1343.         add     hl,bc
  1344.         ld      a,(hl)
  1345.         call    ch_put
  1346.  
  1347.         ret
  1348.  
  1349. ;------------------------
  1350. vout_hex8
  1351. ;8bitò¥é╠16ÉiÉöò\ĪüB
  1352. ;A = ÉöÆl
  1353. ;dest = BC,HL,AF
  1354.         push    af ; é▒é╠âXâ^âbâNé═ë║ê╩4bité╠é╜é▀é╔ÄgéñüB
  1355.  
  1356.         ; RegA Åπê╩ 4bit
  1357.  
  1358.         ld      hl,hex_tbl
  1359.         rlca
  1360.         rlca
  1361.         rlca
  1362.         rlca
  1363.         and     a,$0F
  1364.  
  1365.         ld      b,0
  1366.         ld      c,a
  1367.         add     hl,bc
  1368.         ld      a,(hl)
  1369.         call    ch_put
  1370.  
  1371.         pop     af
  1372.  
  1373.         ; RegA ë║ê╩ 4bit
  1374.         ld      hl,hex_tbl
  1375.  
  1376.         and     a,$0F
  1377.  
  1378.         ld      b,0
  1379.         ld      c,a
  1380.         add     hl,bc
  1381.         ld      a,(hl)
  1382.         call    ch_put
  1383.  
  1384.         ret
  1385.  
  1386. ;------------------------------
  1387. vout_hyphen
  1388.         ld      a,'-'
  1389.         call    ch_put
  1390.         ret
  1391.  
  1392.  
  1393. ;------------------------
  1394. ; âEâFâCâgâïü[â`âô
  1395. ;Æìê╙üAé▒é╠âïü[â`âôî─é╤Åoé╡é╠ì█é═Åφé╔EIé┼éáéΘé▒é╞üB
  1396. ; B = âïü[âvë±Éö
  1397. wait_b
  1398.         halt
  1399.         djnz    wait_b
  1400.         ret
  1401.  
  1402. ;------------------------
  1403. ; âEâFâCâgâïü[â`âô
  1404. ;Æìê╙üAé▒é╠âïü[â`âôî─é╤Åoé╡é╠ì█é═Åφé╔EIé┼éáéΘé▒é╞üB
  1405. ; in .... B = âïü[âvë±Éö
  1406. ; out ... A = âLü[â}âgâèâNâXé╠éVö╘û┌üB
  1407. ; dest .. RegC
  1408. wait_key07
  1409.         ld      c,$ff
  1410. wk07_lp
  1411.         halt
  1412.         ld      a,($FBEB)
  1413.         and     a,c
  1414.         ld      c,a
  1415.         djnz    wk07_lp
  1416.         ld      a,c
  1417.         ret
  1418.  
  1419. ;------------------------
  1420. ;prn_text
  1421. ; HL = ò╢ÄÜù±
  1422.  
  1423. prn_text
  1424. prn_str_disp
  1425.         ld      a,(hl)
  1426.         or      a,a
  1427.         jp      z,nul_term
  1428.         call    ch_put
  1429.         inc     hl
  1430.         jr      prn_str_disp
  1431. nul_term
  1432.         ret
  1433.  
  1434. ;-------------------------
  1435. check_sum
  1436.         xor     a,a
  1437.         ld      bc,$4000
  1438.         ld      hl,$4000
  1439.         ld      de,$0000
  1440. csum_lp
  1441.         ld      a,(hl)
  1442.         add     a,e
  1443.         ld      e,a
  1444.         jr      nc,csum_nc
  1445.         inc     d
  1446. csum_nc
  1447.         inc     hl
  1448.         dec     bc
  1449.  
  1450.         ld      a,b
  1451.         or      a,c
  1452.         jr      nz,csum_lp
  1453.     ret
  1454.  
  1455. ;---------------------------------------------
  1456. check_rom
  1457.  
  1458.         ld      b,$80
  1459.  
  1460. chk_rom_loop
  1461.         ld      h,$40
  1462.         ld      a,b
  1463.         push    bc
  1464.         call    enaslt
  1465.         pop     bc
  1466.  
  1467.         ld      a,($4000)
  1468.         cp      a,'A'
  1469.         jr      nz,chk_p3
  1470.  
  1471.         ld      a,($4003)
  1472.         cp      a,$40
  1473.         jr      c,chk_p3  ; A-$40 < 0
  1474.         cp      a,$80
  1475.         jr      nc,chk_p3 ; A-$80 >= 0
  1476.         jp      chk_rom_ok 
  1477. ;
  1478. chk_p3
  1479.         ld      h,$80
  1480.         ld      a,b
  1481.         push    bc
  1482.         call    enaslt
  1483.         pop     bc
  1484.         
  1485.         ld      a,($8003)
  1486.         cp      a,$80
  1487.         jr      c,no_cart  ; A-$80 < 0
  1488.         cp      a,$C0
  1489.         jr      nc,no_cart ; A-$C0 >= 0
  1490.         jp      chk_rom_ok 
  1491. ;
  1492. no_cart
  1493.         inc     b
  1494.         ld      a,b
  1495.         and     a,$7f
  1496.         cp      a,$10
  1497.         jr      nz,chk_rom_loop 
  1498.  
  1499. chk_rom_ng
  1500.         ld      h,$40
  1501.         ld      a,$80
  1502.  
  1503.         push    bc
  1504.         call    enaslt
  1505.         pop     bc
  1506.  
  1507. chk_rom_ok
  1508.         ret
  1509.  
  1510. ;----------------------------------
  1511. p3_chk
  1512.         ld      a,($8000)
  1513.         cp      a,'A' 
  1514.         jp      z,page_set0
  1515.  
  1516.         ret
  1517.  
  1518. page_set0
  1519.         call    get_slotreg
  1520.         ld      c,a
  1521.         and     a,$3F         ; 00111111
  1522.         ld      b,a
  1523.         and     a,$03         ; 000000AA
  1524.         rrca
  1525.         rrca
  1526.         or      a,b           ; AABBBBAA
  1527.         out     (PSL_STAT),a
  1528.  
  1529.         ld      a,(SSL_REGS)
  1530.         cpl
  1531.         and     a,$F3         ; 11110011
  1532.         ld      d,a
  1533.         and     a,$03         ; 00000011
  1534.         rlca
  1535.         rlca
  1536.         or      a,d           
  1537.         ld      (SSL_REGS),a 
  1538.  
  1539.         ld      a,c
  1540.         and     a,$F3
  1541.         ld      c,a
  1542.         and     a,$03
  1543.         rlca
  1544.         rlca
  1545.         or      a,c
  1546.         out     (PSL_STAT),a
  1547.         ret
  1548.  
  1549.  
  1550. ;-------------------------------------
  1551. ;âJü[â\âïé≡RegDEé╔ò╧è╖é╖éΘüB
  1552. ;-------------------------------------
  1553. ;out.. DE = VRAMâAâhâîâX
  1554. curs2de
  1555.         push    af
  1556.         push    bc
  1557.         push    hl
  1558.  
  1559.     xor    a
  1560.     ld    hl,SCRMOD
  1561.     cp    (hl)
  1562.     jr    nz,c2d_scr1
  1563.         ld      hl,(TXTNAM)
  1564.         ld      de,40    ; text40 
  1565.     jr    c2d_do
  1566. c2d_scr1
  1567.     ld    hl,(T32NAM)
  1568.     ld    de,32    ; text32
  1569. ;    jr    c2d_do
  1570. c2d_do
  1571.  
  1572.         ld      a,(CSRY)
  1573.         cp      a,2
  1574.         jr      c,c2d_add_skip
  1575.         dec     a
  1576.         ld      b,a
  1577. c2d_add_lp
  1578.         add     hl,de
  1579.         djnz    c2d_add_lp
  1580. c2d_add_skip
  1581.         ld      a,(CSRX)
  1582.         cp      a,2
  1583.         jr      c,c2d_add_skip2
  1584.         dec     a
  1585.         ld      e,a
  1586.         add     hl,de
  1587.  
  1588. c2d_add_skip2
  1589.  
  1590.         ld      de,hl
  1591.  
  1592.         pop     hl
  1593.         pop     bc
  1594.         pop     af
  1595.         ret
  1596.  
  1597.  
  1598. ;-----------------------------------
  1599. ; RegDEé⌐éτâJü[â\âïê╩Æué╓ (CSRX,CSRY)
  1600. de2curs
  1601.         push    af
  1602.         push    bc
  1603.         push    de
  1604.         push    hl
  1605.  
  1606.         ex      de,hl
  1607.  
  1608.     xor    a
  1609.     ld    hl,SCRMOD
  1610.     cp    (hl)
  1611.     jr    nz,d2c_scr1
  1612.         ld      de,(TXTNAM)
  1613.         ld      bc,40
  1614.         jr      d2c_do
  1615. d2c_scr1
  1616.     ld    de,(T32NAM)
  1617.     ld    bc,32    ; text32
  1618. ;    jr    d2c_do
  1619. d2c_do
  1620.     inc    a
  1621.     ld    c,a
  1622.     jr    under_chk
  1623.  
  1624. d2c_sub_lp
  1625.         and     a
  1626.         sbc     hl,bc
  1627.         inc     e
  1628. under_chk
  1629.         xor     a,a
  1630.         cp      a,h
  1631.         jr      nz,d2c_sub_lp
  1632.         ld      a,l
  1633.         cp      a,40
  1634.         jr      nc,d2c_sub_lp
  1635.  
  1636.         ld      a,e
  1637.         inc     a
  1638.         ld      (CSRY),a
  1639.         ld      a,l
  1640.         inc     a
  1641.         ld      (CSRX),a
  1642.  
  1643.         pop     hl
  1644.         pop     de
  1645.         pop     bc
  1646.         pop     af
  1647.         ret
  1648.  
  1649.  
  1650.  
  1651. ;----------------------------------
  1652.  
  1653. m_rdprim
  1654.         out     (PSL_STAT),a
  1655.         ld      e,(hl)
  1656.         jr      m_wrprm1
  1657. m_wrprim
  1658.         out     (PSL_STAT),a
  1659.         ld      (hl),e
  1660. m_wrprm1
  1661.         ld      a,d
  1662.         out     (PSL_STAT),a
  1663.         ret
  1664. m_clprim
  1665.         out     (PSL_STAT),a
  1666.         ex      af,af'
  1667.         call    cl_jp
  1668.         ex      af,af'
  1669.         pop     af
  1670.         out     (PSL_STAT),a
  1671.         ex      af,af'
  1672.         ret
  1673. m_cl_jp
  1674.         jp      (ix)
  1675. m_prim_end
  1676.         nop
  1677.  
  1678. rdprim  equ     $F380
  1679. wrprim  equ     rdprim+(m_wrprim-m_rdprim)
  1680. clprim  equ     rdprim+(m_clprim-m_rdprim)
  1681. cl_jp   equ     rdprim+(m_cl_jp-m_rdprim)
  1682.  
  1683.  
  1684. ;---------------------------
  1685. ; âTâuâïü[â`âô
  1686. ;---------------------------
  1687. ; 000Ch RDSLT
  1688. ; in ..  A = âXâìâbâgID , HL = âAâhâîâX
  1689. rdslt
  1690.         push    hl
  1691.         push    af
  1692.  
  1693.         ld      a,h
  1694.         rlca
  1695.         rlca
  1696.         and     a,$03 ; âAâhâîâXÅπê╩2bit
  1697.  
  1698.         ld      l,a   ; L=âVâtâgâiâôâoü[
  1699.         ld      b,a
  1700.  
  1701.         ld      a,$03
  1702.         call    rdsft
  1703.         cpl
  1704.         ld      e,a ; E= â}âXâN
  1705.         ld      a,l ; A=âVâtâgâiâôâoü[
  1706.         ld      b,a ; B=âVâtâgâiâôâoü[
  1707.         pop     af
  1708.         and     a,$03
  1709.         call    rdsft
  1710.         ld      b,a ; B=âVâtâgé╡é╜âXâìâbâgö╘ìå
  1711.         in      a,(PSL_STAT)
  1712.         ld      d,a  ; D=æOé╠âvâëâCâ}âèâXâìâbâg
  1713.         and     a,e
  1714.         or      a,b  ; âXâìâbâgé≡ò╧ìXé╖éΘ
  1715.         pop     hl
  1716.  
  1717.         call    rdprim
  1718.         ld      a,e
  1719.         ret
  1720.  
  1721. rdsft
  1722.         inc     b
  1723.         dec     b
  1724.         ret     z
  1725. rdsft_lp
  1726.         rlca
  1727.         rlca
  1728.         djnz    rdsft_lp
  1729.         ret
  1730.  
  1731. ; 0014h WRSLT
  1732. ; in ..  A = âXâìâbâgID , HL = âAâhâîâX
  1733. wrslt
  1734.         push    hl
  1735.         push    af
  1736.  
  1737.         ld      a,h
  1738.         rlca
  1739.         rlca
  1740.         and     a,$03      ; âAâhâîâXÅπê╩ 2bit
  1741.  
  1742.         ld      l,a        ; L=âVâtâgö╘ìå
  1743.         ld      b,a
  1744.  
  1745.         ld      a,$03
  1746.         call    rdsft
  1747.         cpl
  1748.         ld      e,a        ; E=â}âXâN
  1749.         ld      a,l        ; A=âVâtâgâiâôâoü[
  1750.         ld      b,a        ; B=âVâtâgâiâôâoü[
  1751.         pop     af
  1752.         and     a,$03
  1753.         call    rdsft
  1754.         ld      b,a        ; B=âVâtâgé│éΩé╜âXâìâbâg
  1755.         in      a,(PSL_STAT)
  1756.         ld      d,a        ; D=æOé╠âvâëâCâ}âèâXâìâbâg
  1757.         and     a,e
  1758.         or      a,b        ; âXâìâbâgé≡ò╧ìXé╖éΘ
  1759.         pop     hl
  1760.  
  1761.         call    wrprim
  1762.         ret
  1763.  
  1764.  
  1765. ;-------------------------------------
  1766. ; 001Ch CALSLT(ÄbÆΦôIé╚è╓Éö)
  1767. ; in .. IYh(âXâìâbâgö╘ìå),(IX)
  1768. cal_slt
  1769.         jp      (ix)
  1770.  
  1771. ;--------------------------------
  1772. ; 0020h DCOMPRü@16ârâbâgöΣèr
  1773. ; in .. hl,de= ÉöÆl
  1774. wordcomp
  1775.         ld      a,h
  1776.         cp      a,d
  1777.         ret     nz
  1778.         ld      a,l
  1779.         cp      a,e
  1780.         ret
  1781.  
  1782.  
  1783. ;--------------------------------
  1784. ; 0024h ENASLT
  1785. ; in .. hl=âAâhâîâX,a=âXâìâbâgö╘ìå
  1786. ; A = FxxxEESS
  1787. ; RegA Å┌ì╫
  1788. ; F = ègÆúâXâìâbâgé╠âtâëâO
  1789. ; E = ègÆúâXâìâbâgö╘ìå
  1790. ; S = âXâìâbâgö╘ìå
  1791. ; Dest. AF,BC,DE,DI
  1792.  
  1793. enaslt
  1794.  
  1795. ; A=(A >> 6)&0x3
  1796.         di
  1797.     push    hl
  1798.  
  1799.     ld      l,a     ; L = FxxxEEPP
  1800.  
  1801.     and     a,$03   ; A = 000000PP
  1802.     ld      b,a
  1803.     ld      a,$AB
  1804. psl_dup_lp
  1805.     add    a,$55
  1806.     dec    b
  1807.         jp      p,psl_dup_lp
  1808.  
  1809.     ld      d,a     ; D = PP PP PP PP
  1810.  
  1811.     ld      a,h
  1812.     rlca
  1813.     rlca
  1814.     and    a,$03
  1815.  
  1816.     ld      h,a    ; H = âAâhâîâXÅπê╩ 2bit
  1817.  
  1818.     ld      b,a
  1819.  
  1820.     ld    a,$C0
  1821. page_msk_lp
  1822.     rlca
  1823.     rlca
  1824.     dec    b
  1825.         jp      p,page_msk_lp
  1826.  
  1827.     ld    e,a    ; E = 00 00 11 00(âyü[âWâ}âXâN)
  1828.     cpl
  1829.     ld    c,a    ; C = 11 11 00 11(AND MASK)
  1830.  
  1831.     ld    a,d
  1832.     and    a,e
  1833.     ld    b,a     ; B = 00 00 PP 00
  1834.  
  1835.     ld    a,l
  1836.     and    a,a
  1837.     jp    p,chg_psl
  1838.  
  1839. ;SSL-Change
  1840.     rrca
  1841.     rrca
  1842.     and    a,$03   ; A = 000000SS
  1843.  
  1844.     push    hl
  1845.     push    bc
  1846.  
  1847.     ld    b,a
  1848.     ld      a,$AB
  1849. ssl_dup_lp
  1850.     add    a,$55
  1851.     dec    b
  1852.         jp      p,ssl_dup_lp
  1853.  
  1854.     and    a,e
  1855.     ld    b,a    ; B = 00 00 SS 00
  1856.  
  1857.     ld    a,d
  1858.     and    a,$C0
  1859.     ld      h,a
  1860.  
  1861.     in    a,(PSL_STAT)
  1862.     ld    l,a
  1863.     and    a,$C0
  1864.     or    a,h
  1865.     out    (PSL_STAT),a
  1866.  
  1867.     ld    a,(SSL_REGS)
  1868.     cpl
  1869.     and    a,c
  1870.     or    a,b    ; A = xx xx SS xx ( x = æOé╠Æl )
  1871.     ld    c,a
  1872.     ld    (SSL_REGS),a
  1873.  
  1874.     ld    a,l
  1875.     out    (PSL_STAT),a
  1876.  
  1877.     ; (SLTTBL + PP) <- RegC
  1878.  
  1879.     ld    hl,SLT_TBL
  1880.  
  1881.         ld      a,d
  1882.         and     a,$03    ; A = 000000PP
  1883.  
  1884.         add     a,l
  1885.         ld      l,a    ; L = L + A
  1886.  
  1887.         ld      a,h
  1888.         adc     a,0
  1889.         ld      h,a    ; H = H + Cy
  1890.  
  1891.     ld    a,c
  1892.     ld    (hl),a
  1893.  
  1894.     pop    bc
  1895.     pop    hl
  1896.  
  1897. chg_psl
  1898.     in      a,(PSL_STAT)
  1899.         and     a,c
  1900.         or      a,b
  1901.         out     (PSL_STAT),a
  1902.  
  1903.     pop    hl
  1904.         ret
  1905.  
  1906.  
  1907. ;--------------------------------
  1908. ; 0030h CALLLF
  1909. call_lf
  1910.         pop     hl ; âXâìâbâgÅεò±é╠âAâhâîâX
  1911.         ld      a,(hl)
  1912.         inc     hl
  1913.         ld      e,(hl)
  1914.         inc     hl
  1915.         ld      d,(hl)
  1916.         inc     hl
  1917.         ex      de,hl
  1918.         push    de
  1919.         push    hl
  1920.         push    af
  1921.         call    enaslt
  1922.         pop     af
  1923.         pop     hl
  1924.         jp      (hl)
  1925.  
  1926.  
  1927. ;--------------------------------
  1928. ; 0050h SETRD
  1929. vdp_setrd
  1930.  
  1931.         di
  1932.         ld      a,l
  1933.         out     (VDP_ADDR),a
  1934.         ld      a,h
  1935.         and     a,$3f
  1936.         out     (VDP_ADDR),a
  1937.         ei
  1938.         ret
  1939.  
  1940. ;--------------------------------
  1941. ; 0053h SETWRT
  1942. ; VRAMâAâhâîâXé╠É▌ÆΦ
  1943. vdp_setwrt
  1944.  
  1945.         di
  1946.         ld      a,l
  1947.         out     (VDP_ADDR),a
  1948.         ld      a,h
  1949.         and     a,$3f
  1950.         or      a,$40
  1951.         out     (VDP_ADDR),a
  1952.         ei
  1953.         ret
  1954.  
  1955. ;--------------------------------
  1956. ;0056h fill VRAM
  1957. ;HL = VRAM âAâhâîâX, BC = Æ╖é│ , A = âfü[â^
  1958. vdp_fillmem
  1959.         push    af
  1960.         call    vdp_setwrt
  1961. lp_u001
  1962.         pop     af
  1963.         out     (VDP_DATA),a
  1964.         push    af
  1965.  
  1966.         dec     bc
  1967.         ld      a,c
  1968.         or      b
  1969.         jr      nz,lp_u001
  1970.         pop     af
  1971.         ret
  1972.  
  1973. ;--------------------------------
  1974. wrt_vdp 
  1975. ; 0047h WRTVDP
  1976. ;in:B = VDP âfü[â^ , C = âîâWâXâ^ö╘ìå
  1977. ; dest af,b 
  1978.         push    hl
  1979.         di
  1980.         ld      a,b
  1981.         out     (VDP_ADDR),a
  1982.         ld      a,c
  1983.         or      a,$80
  1984.         out     (VDP_ADDR),a
  1985.         ei
  1986.         ld      a,c
  1987.         and     a,$3F
  1988.         sub     a,8
  1989.         jr      nc,rg8_sav
  1990.         ld      a,b
  1991.         ld      b,0
  1992.         ld      hl,RG0SAV
  1993.         add     hl,bc
  1994.         ld      (hl),a
  1995.         pop     hl
  1996.         ret
  1997.  
  1998. rg8_sav
  1999.         push    bc
  2000.         ld      c,a
  2001.  
  2002.         ld      a,b
  2003.         ld      b,0
  2004.         ld      hl,RG8SAV
  2005.         add     hl,bc
  2006.         ld      (hl),a
  2007.         pop     bc
  2008.         pop     hl
  2009.         ret
  2010.  
  2011.  
  2012.  
  2013.  
  2014. ;--------------------------------
  2015. ;004Ah VRAMô╟é▌Åoé╡
  2016. rd_vrm
  2017.         call    vdp_setrd
  2018.         ex      (sp),ix
  2019.         ex      (sp),ix
  2020.         in      a,(VDP_DATA)
  2021.         ret
  2022.  
  2023.  
  2024. ;--------------------------------
  2025. ;004Dh VRAMÅæé½ì₧é▌
  2026. wrt_vrm
  2027.         push    af
  2028.         call    vdp_setwrt
  2029.         ex      (sp),ix
  2030.         ex      (sp),ix
  2031.         pop     af
  2032.         out     (VDP_DATA),a
  2033.         ret
  2034.  
  2035. ;--------------------------------
  2036. ;in de bc 
  2037. ;dest. af de bc 
  2038. vdp_ldirmv
  2039.     call    vdp_setrd
  2040.     ex    (sp),ix
  2041.     ex    (sp),ix
  2042. ldir_lp1
  2043.     in    a,(VDP_DATA)
  2044.     ld    (de),a
  2045.     inc    de
  2046.     dec    bc
  2047.     ld    a,c
  2048.     or    b
  2049.     jr    nz,ldir_lp1
  2050.     ret
  2051.  
  2052. ;--------------------------------
  2053. vdp_reg1chk
  2054.         ld      a,(RG1SAV)
  2055.         rrca
  2056.         rrca
  2057.         ld      a,$08
  2058.         ret     nc
  2059.         ld      a,$20
  2060.         ret
  2061.  
  2062. ;--------------------------------
  2063. ;in hl de bc 
  2064. ;dest. af de bc 
  2065. vdp_data_rep
  2066.         ex      de,hl
  2067.         call    vdp_setwrt
  2068. lp_vd_rep
  2069.         ld      a,(de)
  2070.         out     (VDP_DATA),a
  2071.         inc     de
  2072.         dec     bc
  2073.         ld      a,c
  2074.         or      b
  2075.         jr      nz,lp_vd_rep
  2076.         ret
  2077. ;------------------------------
  2078. ;screen 5é╠Åëè·ë╗.
  2079. init_sc5
  2080.         ld      a,$05
  2081.         ld      (SCRMOD),a
  2082.  
  2083.         in      a,(VDP_STAT)    ; âëâbâ`âèâZâbâg
  2084.  
  2085.         call    chgclr
  2086.  
  2087.         ld      a,(RG0SAV)
  2088.         and     a,$F1        ; MASK 11110001
  2089.         or      a,$06           ; M4,M3 = 1
  2090.  
  2091.         ld      b,a             ; B = R#0 data
  2092.         ld      c,0
  2093.  
  2094.         call    wrt_vdp        ; VDP R#0
  2095.  
  2096.  
  2097.         ld      a,(RG0SAV+1)
  2098.         and     a,$E7           ; MASK 11100111
  2099.  
  2100.         ld      b,a             ; B = R#1 data
  2101.         inc     c
  2102.  
  2103.         call    wrt_vdp         ; VDP R#1
  2104.  
  2105.         ld      hl,$0000
  2106.         ld      (NAMBAS),hl
  2107.         ld      (CGPBAS),hl
  2108.         ld      hl,$7600
  2109.         ld      (ATRBAS),hl
  2110.         ld      hl,$7800
  2111.         ld      (PATBAS),hl
  2112.  
  2113.         ld      b,$1F           ; B = data
  2114.         ld      c,2
  2115.         call    wrt_vdp         ; VDP R#2
  2116.  
  2117.         ld      a,(RG0SAV+3)
  2118.         ld      b,a             ; B = data
  2119.         ld      c,3
  2120.         call    wrt_vdp         ; VDP R#3
  2121.  
  2122.         ld      a,(RG0SAV+4)
  2123.         ld      b,a             ; B = data
  2124.         ld      c,4
  2125.         call    wrt_vdp         ; VDP R#4
  2126.  
  2127.         ld      b,$ef           ; B = data
  2128.         ld      c,5
  2129.         call    wrt_vdp         ; VDP R#5
  2130.  
  2131.         ld      b,$0f           ; B = data
  2132.         inc     c
  2133.         call    wrt_vdp         ; VDP R#6
  2134.  
  2135.  
  2136.  
  2137.         ld      b,$08           ; B = data
  2138.         ld      c,8
  2139.         call    wrt_vdp         ; VDP R#8
  2140.  
  2141.         ld      b,$80           ; B = data
  2142.         ld      c,9
  2143.         call    wrt_vdp         ; VDP R#9
  2144.  
  2145.  
  2146.         ld      b,0             ; B = data
  2147.         ld      c,10
  2148.         call    wrt_vdp         ; VDP R#10
  2149.         ld      b,0             ; B = data
  2150.         inc     c
  2151.         call    wrt_vdp         ; VDP R#11
  2152.         ld      b,0             ; B = data
  2153.         inc     c
  2154.         call    wrt_vdp         ; VDP R#12
  2155.         ld      b,0             ; B = data
  2156.         inc     c
  2157.         call    wrt_vdp         ; VDP R#13
  2158.         ld      b,1             ; B = data
  2159.         inc     c
  2160.         call    wrt_vdp         ; VDP R#14
  2161.         ld      b,0             ; B = data
  2162.         inc     c
  2163.         call    wrt_vdp         ; VDP R#15
  2164.         ld      b,$0F           ; B = data
  2165.         inc     c
  2166.         call    wrt_vdp         ; VDP R#16
  2167.         ld      b,$2C           ; B = data
  2168.         inc     c
  2169.         call    wrt_vdp         ; VDP R#17
  2170.         ld      b,$00           ; B = data
  2171.         inc     c
  2172.         call    wrt_vdp         ; VDP R#18
  2173.         ld      b,$00           ; B = data
  2174.         inc     c
  2175.         call    wrt_vdp         ; VDP R#19
  2176.         ld      b,$00           ; B = data
  2177.         inc     c
  2178.         call    wrt_vdp         ; VDP R#20
  2179.  
  2180.         ld      b,$3B           ; B = data
  2181.         inc     c
  2182.         call    wrt_vdp         ; VDP R#21
  2183.         ld      b,$05           ; B = data
  2184.         inc     c
  2185.         call    wrt_vdp         ; VDP R#22
  2186.  
  2187.  
  2188.         call    enascr
  2189.         ret
  2190.  
  2191. ;------------------------------
  2192. ;VDPé≡âXâNâèü[âô7é┼Åëè·ë╗é╖éΘüB
  2193. init_sc7
  2194.         ld      a,$07
  2195.         ld      (SCRMOD),a
  2196.  
  2197.         in      a,(VDP_STAT)    ; âëâbâ`é╠âèâZâbâg
  2198.  
  2199.         call    chgclr
  2200.  
  2201.         ld      a,(RG0SAV)
  2202.         and     a,$F1        ; MASK 11110001
  2203.         or      a,$0A           ; M4,M3 = 1
  2204.  
  2205.         ld      b,a             ; B = R#0 data
  2206.         ld      c,0
  2207.  
  2208.         call    wrt_vdp        ; VDP R#0
  2209.  
  2210.  
  2211.         ld      a,(RG0SAV+1)
  2212.         and     a,$E7           ; MASK 11100111
  2213.  
  2214.         ld      b,a             ; B = R#1 data
  2215.         inc     c
  2216.  
  2217.         call    wrt_vdp         ; VDP R#1
  2218.  
  2219.         ld      hl,$0000
  2220.         ld      (NAMBAS),hl
  2221.         ld      (CGPBAS),hl
  2222.         ld      hl,$7600
  2223.         ld      (ATRBAS),hl
  2224.         ld      hl,$7800
  2225.         ld      (PATBAS),hl
  2226.  
  2227.         ld      b,$1F           ; B = data
  2228.         ld      c,2
  2229.         call    wrt_vdp         ; write VDP R#2
  2230.  
  2231.         ld      a,(RG0SAV+4)
  2232.         ld      b,a             ; B = data
  2233.         ld      c,4
  2234.         call    wrt_vdp         ; write VDP R#4
  2235.  
  2236.         ld      a,(RG0SAV+3)
  2237.         ld      b,a             ; B = data
  2238.         ld      c,3
  2239.         call    wrt_vdp         ; write VDP R#3
  2240.  
  2241.  
  2242.         ld      b,0             ; B = data
  2243.         ld      c,10
  2244.         call    wrt_vdp         ; write VDP R#10
  2245.         ld      b,0             ; B = data
  2246.         inc     c
  2247.         call    wrt_vdp         ; write VDP R#11
  2248.         ld      b,0             ; B = data
  2249.         inc     c
  2250.         call    wrt_vdp         ; write VDP R#12
  2251.  
  2252.  
  2253.         ld      b,$00           ; B = data
  2254.         ld      c,19
  2255.         call    wrt_vdp         ; write VDP R#19
  2256.  
  2257.         ld      b,$01           ; B = data
  2258.         ld      c,15
  2259.         call    wrt_vdp         ; write VDP R#15
  2260.  
  2261.         in      a,(VDP_STAT)    ; reset Latch
  2262.  
  2263.  
  2264.         ld      b,$00           ; B = data
  2265.         ld      c,15
  2266.         call    wrt_vdp         ; write VDP R#15
  2267.  
  2268.  
  2269.  
  2270.  
  2271.         ld      b,$ef           ; B = data
  2272.         ld      c,5
  2273.         call    wrt_vdp         ; write VDP R#5
  2274.         ld      b,$0f           ; B = data
  2275.         inc     c
  2276.         call    wrt_vdp         ; write VDP R#6
  2277.  
  2278.         call    enascr
  2279.         ret
  2280.  
  2281.  
  2282. ;--------------------------------
  2283. ;0072h INIGRP
  2284. init_grp
  2285.         ld      a,$02
  2286.         ld      (SCRMOD),a
  2287.  
  2288.         in      a,(VDP_STAT)    ; reset Latch
  2289.  
  2290.         call    chgclr
  2291.  
  2292.         ld      a,(RG0SAV)
  2293.         and     a,$F1        ; MASK 11110001
  2294.         or      a,2             ; M3 = 1
  2295.  
  2296.         ld      b,a             ; B = R#0 data
  2297.         ld      c,0
  2298.  
  2299.         call    wrt_vdp        ; write VDP R#0
  2300.  
  2301.  
  2302.         ld      a,(RG1SAV)
  2303.         and     a,$E7           ; MASK 11100111
  2304.  
  2305.         ld      b,a             ; B = R#1 data
  2306.         inc     c
  2307.  
  2308.         call    wrt_vdp        ; write VDP R#1
  2309.  
  2310.         ld      hl,(GRPNAM)
  2311.         call    vdp_setwrt
  2312.         ld      b,3
  2313.         xor     a,a
  2314. ig_loop
  2315.         out     (VDP_DATA),a
  2316.         inc     a
  2317.         jr      nz,ig_loop
  2318.         djnz    ig_loop
  2319.  
  2320.         ld      hl,(GRPATR)
  2321.         ld      (ATRBAS),hl
  2322.  
  2323.         ld      hl,(GRPPAT)
  2324.         ld      (PATBAS),hl
  2325.  
  2326.         ld      hl,GRPNAM
  2327.         ld      de,$7F03
  2328.         call    set_grp
  2329.         call    enascr
  2330.         ret
  2331.  
  2332. ; HL = âeü[âuâïâAâhâîâX
  2333. ; B  = DATA , C = VDP R#
  2334. ; DE = VDPDATA
  2335. set_grp
  2336.         push    ix
  2337.         ld      ix,shift_tbl
  2338.         ld      c,2       ; C = VDP R#
  2339.  
  2340.         xor     a,a       ; data=0
  2341.         call    adr_sft   ; R#2
  2342.         ld      a,d       ; data=D
  2343.         call    adr_sft   ; R#3
  2344.         ld      a,e       ; data=E
  2345.         call    adr_sft   ; R#4
  2346.         xor     a,a       ; data=0
  2347.         call    adr_sft   ; R#5
  2348.         xor     a,a       ; data=0
  2349.         call    adr_sft
  2350.         pop     ix
  2351.         ret
  2352.  
  2353. shift_tbl
  2354.         db      $06,$0A,$05,$09,$05
  2355.  
  2356. ;
  2357. ;HL = âeü[âuâïâAâhâîâX
  2358. ;
  2359. adr_sft
  2360.         push    hl
  2361.         push    af
  2362.         ld      b,(ix)
  2363.         inc     ix
  2364.  
  2365.     ; HL <- (HL)
  2366.         ld      a,(hl)
  2367.         inc     hl
  2368.         ld      h,(hl)
  2369.         ld      l,a
  2370. sft_lp
  2371.         add     hl,hl
  2372.         adc     a,a
  2373.         djnz    sft_lp
  2374.         ld      h,a    ; H = âVâtâgé╡é╜HLé╠Åπê╩üB
  2375.         pop     af
  2376.  
  2377.         or      a,h
  2378.         ld      b,a
  2379.  
  2380.         call    wrt_vdp
  2381.         pop     hl
  2382.         inc     hl
  2383.         inc     hl
  2384.         inc     c
  2385.         ret
  2386.  
  2387. ;----------------------------------
  2388. ;005Fh CHGMOD   ëµû╩âéü[âhé╠ò╧ìX
  2389. chgmod
  2390.         or      a,a
  2391.         jp      z,init_txt   ; screen 0
  2392.         dec     a
  2393.         jp      z,init_txt32 ; screen 1
  2394.         dec     a
  2395.         jp      z,init_grp   ; screen 2
  2396.         dec     a
  2397. ;
  2398. ;        jp     z,init_mlt   ; screen 3
  2399. ;
  2400.         dec     a
  2401. ;
  2402. ;        jp     z,init_sc4   ; screen 4
  2403. ;
  2404.         dec     a
  2405.         jp      z,init_sc5   ; screen 5
  2406.         dec     a
  2407. ;        jp      z,init_sc6  ; screen 6
  2408.         dec     a
  2409.         jp      z,init_sc7   ; screen 7
  2410.  
  2411.         ret
  2412.  
  2413. ;--------------------------------
  2414. ;006Ch INITXT
  2415. init_txt
  2416.         ld      a,$00
  2417.         ld      (SCRMOD),a
  2418.  
  2419.         call    clr_text40
  2420.  
  2421.         in      a,(VDP_STAT)    ; reset Latch
  2422.         call    chgclr
  2423.  
  2424.         ld      a,(RG0SAV)
  2425.         and     a,$F1        ; MASK 11110001
  2426.  
  2427.         ld      b,a             ; B = R#0 data
  2428.         ld      c,0
  2429.  
  2430.         call    wrt_vdp        ; write VDP R#0
  2431.  
  2432.  
  2433.         ld      a,(RG1SAV)
  2434.         and     a,$E7           ; MASK 11100111
  2435.         or      a,$10
  2436.  
  2437.         ld      b,a             ; B = R#1 data
  2438.         inc     c
  2439.  
  2440.         call    wrt_vdp        ; write VDP R#1
  2441.  
  2442.     ld    bc,$0104    ; R#4 PatGenTBLaddr=$0800
  2443.     call    wrt_vdp        ; write VDP R#4
  2444.  
  2445.     ld    bc,$0002    ; R#2 PatNamTBLaddr=$0000
  2446.     call    wrt_vdp        ; write VDP R#2
  2447.  
  2448.         in      a,(VDP_STAT)    ; reset Latch
  2449.  
  2450.         ld      hl,B_Font
  2451.         ld      de,(TXTCGP)
  2452.         ld      bc,$800
  2453.         call    vdp_data_rep    ; init Font
  2454.  
  2455.         ld     hl,$0000
  2456.         ld     (NAMBAS),hl
  2457.         ld     hl,$0800
  2458.         ld     (CGPBAS),hl
  2459.  
  2460.     ld    a,39
  2461.     ld    (LINLEN),a
  2462.  
  2463.         ret
  2464.  
  2465. ;--------------------------------
  2466. ;006Fh INIT32
  2467. init_txt32
  2468.         ; screen 1
  2469.         ld      a,$01
  2470.         ld      (SCRMOD),a
  2471.  
  2472.         call    clr_text32
  2473.  
  2474.         call    chgclr
  2475.  
  2476.         ld      a,(RG0SAV)
  2477.         and     a,$F1        ; MASK 11110001
  2478.  
  2479.         ld      b,a             ; B = R#0 data
  2480.         ld      c,0
  2481.  
  2482.         call    wrt_vdp        ; write VDP R#0
  2483.  
  2484.  
  2485.         ld      a,(RG1SAV)
  2486.         and     a,$E7           ; MASK 11100111
  2487.  
  2488.         ld      b,a             ; B = R#1 data
  2489.         inc     c
  2490.  
  2491.         call    wrt_vdp        ; write VDP R#1
  2492.  
  2493.         ld     hl,(T32NAM)
  2494.         ld     (NAMBAS),hl
  2495.         ld     hl,(T32CGP)
  2496.         ld     (CGPBAS),hl
  2497.         ld     hl,(T32PAT)
  2498.         ld     (PATBAS),hl
  2499.         ld     hl,(T32ATR)
  2500.         ld     (ATRBAS),hl
  2501.  
  2502.         ld      hl,(T32NAM)
  2503.         ld      a,h
  2504.         rrca
  2505.         rrca
  2506.         and     a,$3F
  2507.  
  2508.         ld      b,a
  2509.         ld      c,2
  2510.         call    wrt_vdp         ; write VDP R#2
  2511.  
  2512.  
  2513.         ld     hl,(T32COL)
  2514.         ld     b,2
  2515. tcol_lp
  2516.         xor    a,a
  2517.         rl     l
  2518.         rl     h
  2519.         djnz   tcol_lp
  2520.         ld     a,h
  2521.  
  2522.         ld     b,a
  2523.         ld     c,3
  2524.         call    wrt_vdp         ; write VDP R#3
  2525.  
  2526.         ld      hl,(T32CGP)
  2527.         ld      a,h
  2528.         rrca
  2529.         rrca
  2530.         rrca
  2531.         and     a,$1F
  2532.  
  2533.         ld      b,a
  2534.         ld      c,4
  2535.         call    wrt_vdp         ; write VDP R#4
  2536.  
  2537.         ld      hl,(T32ATR)
  2538.         rl     l
  2539.         rl     h
  2540.         ld     a,h
  2541.  
  2542.         ld     b,a
  2543.         ld     c,5
  2544.         call   wrt_vdp         ; write VDP R#5
  2545.         
  2546.         ld      hl,(T32PAT)
  2547.         ld    a,h
  2548.         rrca
  2549.         rrca
  2550.         rrca
  2551.         and     a,$1F
  2552.         ld     b,a
  2553.         ld     c,6
  2554.         call   wrt_vdp         ; write VDP R#6
  2555.  
  2556.         in      a,(VDP_STAT)    ; reset Latch
  2557.  
  2558.         ld      hl,B_Font
  2559.         ld      de,(T32CGP)
  2560.         ld      bc,$800
  2561.         call    vdp_data_rep    ; init Font
  2562.  
  2563.  
  2564. ;        ld      a,1
  2565. ;        ld      (CSRY),a
  2566. ;        ld      (CSRX),a
  2567.  
  2568.     ld    a,29
  2569.     ld    (LINLEN),a
  2570.  
  2571.         ret
  2572.  
  2573. ;0062h CHGCLR
  2574. ;in = û│é╡
  2575. chgclr
  2576.         ld      a,(SCRMOD)
  2577.         dec     a
  2578.         push    af
  2579.         ld      a,(FORCLR)
  2580.         rlca
  2581.         rlca
  2582.         rlca
  2583.         rlca
  2584.         ld      l,a
  2585.         ld      a,(BDRCLR)
  2586.         or      a,l
  2587.  
  2588.         ld      b,a
  2589.         ld      c,7
  2590.         call    wrt_vdp
  2591.         pop     af
  2592.         ret     nz
  2593.  
  2594.         ld      a,(FORCLR)
  2595.         rlca
  2596.         rlca
  2597.         rlca
  2598.         rlca
  2599.         and     a,$F0
  2600.         ld      hl,BAKCLR
  2601.         or      a,(hl)
  2602.         ld      hl,(T32COL)
  2603.         ld      bc,$0020
  2604.         push    af
  2605.         call    vdp_setwrt
  2606. cclr_lp pop     af
  2607.         out     (VDP_DATA),a
  2608.         push    af
  2609.         dec     bc
  2610.         ld      a,b
  2611.         or      c
  2612.         jr      nz,cclr_lp
  2613.         pop     af
  2614.         ret
  2615.  
  2616. ;0044h ENASCR
  2617. enascr
  2618.         in      a,(VDP_STAT) ; reset Latch
  2619.  
  2620.         ld      a,(RG1SAV)
  2621.         or      a,$40
  2622.         ld      b,a
  2623.         ld      c,1
  2624.         call    wrt_vdp
  2625.         ret
  2626.  
  2627. ;00?? DISSCR
  2628. disscr
  2629.         in      a,(VDP_STAT) ; reset Latch
  2630.  
  2631.         ld      a,(RG1SAV)
  2632.         and     a,$BF
  2633.         ld      b,a
  2634.         ld      c,1
  2635.         call    wrt_vdp
  2636.         ret
  2637.  
  2638.  
  2639. ;--------------------------------
  2640. ;009Ch  CHSNS
  2641. ch_sns
  2642.         push    hl
  2643.         push    de
  2644.         ld      hl,(GETPNT)
  2645.         ld      de,(PUTPNT)
  2646.         call    wordcomp
  2647.         jr      z,no_chr
  2648.         ld      a,(hl)
  2649.         and     a,a
  2650.         pop     de
  2651.         pop     hl
  2652.         ret
  2653. no_chr
  2654.         xor     a,a
  2655.         and     a,a
  2656.         pop     de
  2657.         pop     hl
  2658.         ret
  2659.  
  2660. ;---------------------------------
  2661. ;009Fh  CHGET
  2662. ch_get
  2663.         ld      a,$00
  2664.         push    hl
  2665.         push    de
  2666.         push    bc
  2667. loop_chget
  2668.         ld      hl,(GETPNT)
  2669.         ld      de,(PUTPNT)
  2670.         call    wordcomp
  2671.         jr      nz,get_ch
  2672.         ei
  2673.         halt
  2674.         jr      loop_chget
  2675. get_ch
  2676.         ld      hl,(PUTPNT)
  2677.         ld      bc,(GETPNT)
  2678.         ld      a,(bc)
  2679.         and     a,a
  2680.         push    af
  2681.         ld      bc,39
  2682.         ld      hl,(GETPNT)
  2683.         inc     hl
  2684.         ld      de,(GETPNT)
  2685.         ldir
  2686.         ld      de,(PUTPNT)
  2687.         dec     de
  2688.         ld      (PUTPNT),de
  2689.         pop     af
  2690.         pop     bc
  2691.         pop     de
  2692.         pop     hl
  2693.         ret
  2694. ;-----------------------------------
  2695. ;00A2h  CHPUT
  2696. ;in ... A = âLâââëâNâ^âRü[âh
  2697. ch_put
  2698.         push    de
  2699.         push    af
  2700.         ld      a,(SCRMOD)
  2701.         ld      e,a
  2702.         ld      a,1
  2703.         cp      a,e
  2704.         jr      nc,scr_txt_mode
  2705.         pop     af
  2706.         pop     de
  2707.     ret
  2708.  
  2709. scr_txt_mode
  2710.         pop     af
  2711.         push    af
  2712.  
  2713.     ; CTRL code
  2714.         cp      a,$08
  2715.         jp      z,back_spc
  2716.         cp      a,$0d
  2717.         jp      z,ctrl_cr
  2718.         cp      a,$0a
  2719.         jp      z,ctrl_lf
  2720.  
  2721.     ; Charactor code
  2722.  
  2723.         call    set_curs
  2724.         pop     af
  2725.         push    af
  2726.         out     (VDP_DATA),a
  2727.         ld      a,(LINLEN)
  2728.         ld      e,a
  2729.         ld      a,(CSRX)
  2730.         cp      a,e
  2731.         jr      nc,chput_nx
  2732.  
  2733.     ; next point
  2734.         inc     a
  2735. chput_ret
  2736.         ld      (CSRX),a
  2737.         pop     af
  2738.         pop     de
  2739.     ret
  2740. chput_nx
  2741.     ld    a,(CRTCNT)
  2742.     ld    e,a
  2743.     ld    a,(CSRY)
  2744.     cp    a,e
  2745.     jr    nc,chput_scrll
  2746.         ld      a,(CSRY)
  2747.         inc     a
  2748.         ld      (CSRY),a
  2749.         ld      a,1
  2750.     jr    chput_ret
  2751. chput_scrll
  2752.     call    scroll_txt
  2753.     ld    a,1
  2754.     jr    chput_ret
  2755.  
  2756. set_curs
  2757.         call    curs2de
  2758.         ex      de,hl
  2759.         call    vdp_setwrt
  2760.         ex      de,hl
  2761.     ret
  2762.  
  2763. back_spc
  2764.         ld      a,(CSRX)
  2765.         cp      a,2
  2766.         jr      c,skip_bs
  2767.         dec     a
  2768.         ld      (CSRX),a
  2769.         call    set_curs
  2770.         xor     a,a
  2771.         out     (VDP_DATA),a
  2772. skip_bs
  2773.         pop     af
  2774.         pop     de
  2775.     ret
  2776. ; 0Dh CR
  2777. ctrl_cr
  2778.         ld      a,1
  2779.         ld      (CSRX),a
  2780.         pop     af
  2781.         pop     de
  2782.     ret
  2783.  
  2784. ; 0Ah LF  âëâCâôâtâBü[âh
  2785. ctrl_lf
  2786.         ld      a,(CRTCNT)
  2787.         ld      e,a
  2788.         ld      a,(CSRY)
  2789.         cp      a,e
  2790.         jr      nc,lf_scroll
  2791.         inc     a
  2792.         ld      (CSRY),a
  2793.         pop     af
  2794.         pop     de
  2795.     ret
  2796. lf_scroll
  2797.     call    scroll_txt
  2798.     pop    af
  2799.     pop    de
  2800.     ret
  2801.  
  2802. ; âXâNâìü[âïâïü[â`âô
  2803. scroll_txt
  2804.     push    af
  2805.         push    bc
  2806.         push    hl
  2807.         push    de
  2808.         ld      hl,(NAMBAS)
  2809.         ld      de,LINWRK
  2810.         ld      a,(CRTCNT)
  2811. ;        ld      (CSRY),a
  2812. ;        dec     a
  2813.         ld      b,a
  2814.     ld    a,(SCRMOD)
  2815.     and    a
  2816.     jr    nz,scroll_n0
  2817.     ld    c,40
  2818.     jr    scr_loop
  2819. scroll_n0
  2820.     dec    a
  2821.     jr    nz,scroll_n1
  2822.     ld    c,32
  2823.  
  2824. scr_loop
  2825.     push    bc
  2826.     xor    a
  2827.     ld    b,a
  2828.  
  2829.         add     hl,bc
  2830.         push    hl
  2831.         push    de
  2832.     push    bc
  2833.         call    vdp_ldirmv  ; HL=VRAM,DE=RAM,BC=LENGTH
  2834.     pop    bc
  2835.         pop     de
  2836.         pop     hl
  2837.  
  2838.     sbc    hl,bc
  2839.  
  2840.         ex      de,hl      ; DE = VRAM,HL = RAM
  2841.  
  2842.         push    hl
  2843.         push    de
  2844.     push    bc
  2845.         call    vdp_data_rep
  2846.     pop    bc
  2847.         pop     de
  2848.         pop     hl
  2849.  
  2850.         ex      de,hl      ; DE = RAM,HL = VRAM
  2851.  
  2852.         add     hl,bc
  2853.  
  2854.     pop    bc
  2855.         djnz    scr_loop
  2856.  
  2857.         ld      a,0
  2858.         call    vdp_fillmem
  2859.  
  2860.  
  2861. scroll_n1
  2862.         pop     de
  2863.         pop     hl
  2864.         pop     bc
  2865.         pop     af
  2866.     ret
  2867.  
  2868.  
  2869.  
  2870. ;-----------------------
  2871. ;00C6h    âJü[â\âïé≡É▌ÆΦé╖éΘ
  2872. ;in ... RegH = X, RegL = Y
  2873. curxy
  2874.         ld      a,h
  2875.         ld      (CSRY),a
  2876.         ld      a,l
  2877.         ld      (CSRX),a
  2878.         ret
  2879.  
  2880. ;-----------------------
  2881.  
  2882.  
  2883.  
  2884. ;--------------------------------------
  2885. ;0156h  KILBUF    âLü[âoâbâtâ@é≡âNâèâAüB
  2886. kilbuf
  2887.         push    de
  2888.         push    bc
  2889.         push    af
  2890.         ld      hl,KEYBUF
  2891.         ld      (PUTPNT),hl
  2892.  
  2893.         ld      a,$FF
  2894.         ld      hl,OLDKEY
  2895.         ld      (hl),a
  2896.         ld      de,OLDKEY+1
  2897.         ld      bc,21
  2898.         ldir
  2899.         pop     af
  2900.         pop     bc
  2901.         pop     de
  2902.         ret
  2903.  
  2904.  
  2905. ;--------------------------------
  2906. ;0090h GICINIT    ë╣î╣ICÅëè·ë╗
  2907. sound_init
  2908.         ld      e,$00
  2909.         ld      a,$08
  2910.         call    sound_out
  2911.         inc     a
  2912.         call    sound_out
  2913.         inc     a   
  2914.         call    sound_out
  2915.         inc     a
  2916.  
  2917.         ld      e,$b8
  2918.         ld      a,$07
  2919.         call    sound_out
  2920.         ret
  2921.  
  2922. ;--------------------------------
  2923. ;0093h in a=reg#,e=data
  2924. sound_out
  2925.         di
  2926.         out     (PSG_REGS),a
  2927.         push    af
  2928.         ld      a,e
  2929.         out     (PSG_DATA),a
  2930.         ei
  2931.         pop     af
  2932.  
  2933. ;âTâEâôâhâéü[âhùp
  2934. ;        push  af
  2935. ;        push  de
  2936. ;        ld    d,a
  2937. ;        ld    a,(PSG_DBG)
  2938. ;        or    a,a
  2939. ;        call  nz,disp_psg
  2940. ;        pop   de
  2941. ;        pop   af
  2942.  
  2943.         ret
  2944.  
  2945. ;--------------------------------
  2946. sound_stat
  2947.         out     (PSG_REGS),a
  2948.         in      a,(PSG_STAT)
  2949.         ret
  2950.  
  2951. ;--------------------------------
  2952. get_slotreg
  2953.         in      a,(PSL_STAT)
  2954.         ret
  2955.  
  2956. ;--------------------------------
  2957. set_slotreg
  2958.         out     (PSL_STAT),a
  2959.         ret
  2960.  
  2961. ;--------------------------------
  2962. ; 013Eh 
  2963. vdp_stat_in
  2964.         in      a,(VDP_STAT)
  2965.         ret
  2966.  
  2967. ;--------------------------------
  2968. ;0141h SNSMAT
  2969. ; in a = âLü[â{ü[âhâ}âgâèâNâXìsÉö
  2970. ;dest AF,C,EI
  2971.  
  2972. in_keyboard
  2973.         di
  2974.         ld      c,a
  2975.         in      a,(GIO_REGS)
  2976.         and     a,$F0
  2977.         or      a,c
  2978.         out     (GIO_REGS),a
  2979.         in      a,(KBD_STAT)
  2980.         ei
  2981.         ret
  2982.  
  2983. ;--------------------------------
  2984. ;00D5h GTSTCK
  2985. ; a = InID...
  2986. ; dest AF,BC,EI
  2987. in_joy
  2988.  
  2989.         push    bc
  2990.         cp      a,$00
  2991.         jr      nz,joy_stc1
  2992.  
  2993.         ld      a,$08
  2994.         call    in_keyboard
  2995.         rrca
  2996.         rrca
  2997.         rrca
  2998.         rrca
  2999.         cpl
  3000.         and     a,$0f ; 0000RDUL
  3001.        
  3002.         push    hl
  3003.         ld      hl,joypos_kbd_tbl
  3004.         ld      b,0
  3005.         ld      c,a
  3006.         add     hl,bc
  3007.         ld      a,(hl)
  3008.         pop     hl
  3009.         pop     bc
  3010.         and     a,a
  3011.         ret
  3012. joy_stc1
  3013. ;PSG reg 15h
  3014. ;0J001111
  3015. ;PSG reg 14h
  3016. ;00BARLDU
  3017.         push    hl
  3018.         push    de
  3019.  
  3020.         ld      e,0
  3021.         dec     a
  3022.         jr      z,sel_stc1
  3023.         ld      a,$40
  3024.         ld      e,a
  3025. sel_stc1
  3026.         ld      a,$0F
  3027.         di
  3028.         call    sound_stat
  3029.         ei
  3030.         and     a,$BF
  3031.         or      a,e
  3032.         ld      e,a
  3033.         ld      a,$0F
  3034.         call    sound_out
  3035.         ld      a,$0e
  3036.         di
  3037.         call    sound_stat
  3038.         ei
  3039.         cpl
  3040.         and     a,$0f ; 0000RLDU
  3041.         
  3042.  
  3043.         ld      hl,joypos_joy_tbl
  3044.         ld      b,0
  3045.         ld      c,a
  3046.         add     hl,bc
  3047.         ld      a,(hl)
  3048.         pop     de
  3049.         pop     hl
  3050.  
  3051.         pop     bc
  3052.         and     a,a
  3053.         ret
  3054.  
  3055. joy_end
  3056.         ld      a,$00
  3057.         pop     bc
  3058.         and     a,a
  3059.         ret
  3060.  
  3061. joypos_joy_tbl
  3062.         ;    0   1   2   3   4   5   6   7
  3063.         db $00,$01,$05,$00,$07,$08,$06,$00
  3064.         ;    8   9   A   B   C   D   E   F
  3065.         db $03,$02,$04,$00,$00,$00,$00,$00
  3066.  
  3067. joypos_kbd_tbl
  3068.         ;    0   1   2   3   4   5   6   7
  3069.         db $00,$07,$01,$08,$05,$06,$00,$00
  3070.         ;    8   9   A   B   C   D   E   F
  3071.         db $03,$00,$02,$00,$04,$00,$00,$00
  3072.  
  3073.  
  3074. ;--------------------------------
  3075. ;00D8h GTTRIG
  3076. ;dest AF,BC,EI
  3077. ;
  3078.  
  3079. in_trig
  3080.         cp      a,$00
  3081.         jr      z,kbd_spc
  3082.         jr      joy_trig
  3083. kbd_spc
  3084.         ld      a,$08
  3085.         call    in_keyboard
  3086.         and     a,$01
  3087.         jr      z,spc_on
  3088.         jr      spc_off
  3089. spc_on
  3090.         ld      a,$FF
  3091.         ret
  3092. spc_off
  3093.         xor     a,a
  3094.         ret
  3095.  
  3096. joy_trig
  3097.         di
  3098.         dec     a
  3099.         push    de
  3100.         ld      e,$00
  3101.         ld      b,a
  3102.         and     a,$01
  3103.         jr      z,sel_trig1
  3104.         ld      e,$40
  3105. sel_trig1
  3106.         ld      a,$0F
  3107.         call    sound_stat
  3108.         and     a,$BF
  3109.         or      a,e
  3110.         ld      e,a
  3111.         ld      a,$0F
  3112.         call    sound_out
  3113.  
  3114.         ld      a,b
  3115.         ld      b,$10
  3116.         and     a,$02
  3117.         jr      z,istrg_a
  3118.         ld      b,$20
  3119. istrg_a
  3120.         ld      a,$0e
  3121.         di
  3122.         call    sound_stat
  3123.         ei
  3124.         pop     de
  3125.         and     a,b
  3126.         jr      z,trig_on
  3127.         jr      trig_off
  3128. trig_on
  3129.         ld      a,$FF
  3130.         ret
  3131. trig_off
  3132.         xor     a,a
  3133.         ret
  3134.  
  3135.  
  3136.  
  3137.  
  3138. ;------------------
  3139. ; interrupt routine code
  3140. ;------------------
  3141.  
  3142. int_start
  3143. ;âfâoâbâOùp
  3144. ;        push    hl
  3145. ;        ld  hl,$3232
  3146. ;        ex (sp),hl
  3147. ; 
  3148.         push    hl
  3149.         push    de
  3150.         push    bc
  3151.         push    af
  3152.         exx  
  3153.         ex      af,af'
  3154.         push    hl
  3155.         push    de
  3156.         push    bc
  3157.         push    af
  3158.         push    iy
  3159.         push    ix
  3160.  
  3161.         call    H_KEYI
  3162.         in      a,(VDP_STAT)
  3163.         or      a,a
  3164.         jp      p,int_end
  3165.  
  3166.         call    H_TIMI
  3167.  
  3168.         ld      hl,(JIFFY)
  3169.         inc     hl
  3170.         ld      (JIFFY),hl
  3171.  
  3172.         
  3173.         ei
  3174.         ld      (STATFL),a ; âXâeü[â^âXò█æ╢
  3175.  
  3176.         xor     a,a
  3177.         ld      (CLIKFL),a
  3178.         call    in_trig
  3179.         cpl
  3180.         and     a,$01
  3181.         ld      ($F3E8),a
  3182.         call    old_key
  3183.         call    key_in
  3184.  
  3185. int_end
  3186.         pop     ix
  3187.         pop     iy
  3188.         pop     af
  3189.         pop     bc
  3190.         pop     de
  3191.         pop     hl
  3192.         exx
  3193.         ex      af,af'
  3194.         pop     af
  3195.         pop     bc
  3196.         pop     de
  3197.         pop     hl
  3198.         ei
  3199.         ret
  3200.  
  3201. ;--------------------------------
  3202. ; 0066h NMIèäéΦì₧é▌
  3203. nmi_int
  3204.         call    H_NMI
  3205.         retn
  3206.  
  3207. ;--------------------------------
  3208. old_key
  3209.         ld      de,NEWKEY
  3210.         ld      hl,OLDKEY
  3211.         ld      b,$0b
  3212. oldkey_lp
  3213.         ld      a,(de)
  3214.         ld      (hl),a
  3215.         inc     de
  3216.         inc     hl
  3217.         djnz    oldkey_lp
  3218.         ret
  3219.  
  3220. ;--------------------------------
  3221. ; âLü[â{ü[âhôⁿù═é≡âoâbâtâ@é╔ĵéΦì₧é▐
  3222. key_in
  3223.         in      a,(GIO_REGS)
  3224.         and     a,$F0
  3225.         ld      c,a
  3226.         ld      b,$0b
  3227.         ld      hl,NEWKEY
  3228. key_in_lp
  3229.         ld      a,c
  3230.         out     (GIO_REGS),a
  3231.         in      a,(KBD_STAT)
  3232.         ld      (hl),a
  3233.         inc     hl
  3234.         inc     c
  3235.         djnz    key_in_lp
  3236.         call    key_chk
  3237.         ret
  3238.  
  3239. ;--------------------------------
  3240. ; âLü[âRü[âhâ`âFâbâNâïü[â`âô
  3241. ; èäéΦì₧é▌é⌐éτî─é╤Åoé│éΩéΘüB
  3242. ;
  3243. key_chk
  3244.         ld      ix,OLDKEY
  3245.         ld      de,NEWKEY
  3246.         ld      a,($FBEB)
  3247.         rrca
  3248.         jr      nc,code_shift
  3249.         ld      hl,scode_tbl
  3250.         jr      scan_start
  3251. code_shift
  3252.         ld      hl,scode_tbl_shift
  3253. scan_start
  3254.         ld      b,$0b
  3255. key_chk_lp
  3256.         ld      a,(de)
  3257.         cpl
  3258.         and     a,(ix)
  3259.         ld      c,$08
  3260. key_bit_lp
  3261.         rrca
  3262.         jr      c,push_pnt
  3263.         inc     hl
  3264.         dec     c
  3265.         jr      nz,key_bit_lp
  3266.         inc     ix
  3267.         inc     de
  3268.         djnz    key_chk_lp
  3269.         ret
  3270. push_pnt
  3271.         push    hl
  3272.         push    de
  3273.         push    bc
  3274.         ld      a,(hl)
  3275.         and     a,a
  3276.  
  3277.         ; RegAé¬ò\Īë┬ö\âLâââëâNâ^é┼é╚é»éΩé╬âXâgâbâNé╡é╚éóüB
  3278.  
  3279.         jr      z,pnt_flow
  3280.         ld      c,a
  3281.         ld      de,LIMPNT
  3282.         ld      hl,(PUTPNT)
  3283.         call    wordcomp
  3284.         jr      nc,pnt_flow
  3285.         ld      a,c
  3286.         ld      (hl),a
  3287.         inc     hl
  3288.         ld      (PUTPNT),hl
  3289. pnt_flow
  3290.         pop     bc
  3291.         pop     de
  3292.         pop     hl
  3293.         ret
  3294.  
  3295. key_int
  3296.         ld      hl,NEWKEY
  3297.         ld      bc,$0006
  3298.         add     hl,bc
  3299.         ld      a,(hl)
  3300.         and     a,$01
  3301.         jr      nz,ki_end
  3302.         call    dbg_reg
  3303. ki_end
  3304.         ret
  3305.  
  3306. ;-------------------
  3307.         org     $1000
  3308.  
  3309.         ld      a,$82
  3310.         out     (PPI_REGS),a
  3311.  
  3312.         ld      a,$C9
  3313.         ld      (H_KEYI),a
  3314.         ld      (H_TIMI),a
  3315.  
  3316.         ei
  3317.  
  3318. hang_up_mode
  3319.         ld      a,$06
  3320.         call    in_keyboard
  3321.         bit     0,a
  3322.         jp      z,debug_mode
  3323.  
  3324.         halt
  3325.  
  3326.         jp      hang_up_mode
  3327.  
  3328.         org     $1020
  3329. stack_error
  3330.         call    H_STKE
  3331.         ld      de,str_stack_error
  3332.         jp      print_error
  3333.  
  3334. ;------------------------------------
  3335. ;âxü[âVâbâNî─é╤Åoé╡
  3336. call_basic_intr
  3337.         ld      de,str_no_basic_intr
  3338.         jp      print_error
  3339.  
  3340. ;------------------------------------
  3341. ;âGâëü[ò\Ī
  3342. ;in DE=âüâbâZü[âWé╠âAâhâîâXüB
  3343.  
  3344. print_error
  3345.         in      a,(VDP_STAT) ; reset Latch 
  3346.         ld      hl,vdp_bios
  3347.         ld      b,$0C
  3348.         ld      c,VDP_ADDR
  3349.     otir
  3350.  
  3351.         ld      bc,$0800
  3352. lp_clearmem
  3353.         xor     a,a
  3354.         out     (VDP_DATA),a
  3355.         dec     bc
  3356.         ld      a,b
  3357.         or      a,c
  3358.         jr      nz,lp_clearmem
  3359.  
  3360.         ld      hl,B_Font
  3361.         ld      bc,$800
  3362. lp_fontset
  3363.         ld      a,(hl)
  3364.         out     (VDP_DATA),a
  3365.         inc     hl
  3366.         dec     bc
  3367.         ld      a,b
  3368.         or      a,c
  3369.         jr      nz,lp_fontset
  3370.  
  3371. ;set cursor to (0,0)
  3372.         ld      a,$00
  3373.         out     (VDP_ADDR),a
  3374.         ld      a,$40
  3375.         out     (VDP_ADDR),a
  3376.  
  3377.         ld      hl,str_error_prompt
  3378.  
  3379.         ld      a,(hl)
  3380. lp_errprn
  3381.         out     (VDP_DATA),a
  3382.         inc     hl
  3383.         ld      a,(hl)
  3384.         and     a,a
  3385.         jr      nz,lp_errprn
  3386.  
  3387.         ld      a,(de)
  3388. lp_strprn
  3389.         out     (VDP_DATA),a
  3390.         inc     de
  3391.         ld      a,(de)
  3392.         and     a,a
  3393.         jr      nz,lp_strprn
  3394.  
  3395.         jp      hang_up_mode
  3396.  
  3397.  
  3398. ;------------------------------------
  3399. ;âfâBâXâNâïü[â`âô
  3400. ;------------------------------------
  3401.  
  3402. DISKIO  equ     $4010
  3403.  
  3404. disk_intr
  3405.         ld      hl,str_flist
  3406.         call    prn_text
  3407.  
  3408.         xor     a,a
  3409.         ld      bc,$01F9
  3410.         ld      de,$0000
  3411.         ld      hl,$C000
  3412.         and     a,a
  3413.  
  3414.         call    DISKIO
  3415.         jp      c,disk_error
  3416.         ld      hl,($C00B)
  3417.  
  3418.         ; âZâNâ^ü[âTâCâY / 0x20(âtâ@âCâïì\æóæ╠)
  3419.  
  3420.         ld      b,5        
  3421. shift_adr
  3422.         and     a,a
  3423.         rr      h
  3424.         rr      l
  3425.         djnz    shift_adr        
  3426.  
  3427.         ld      ($E100),hl
  3428.  
  3429.         ld      a,($C010)
  3430.         ld      b,a
  3431.         ld      hl,$0001
  3432.         ld      de,($C016)
  3433. dsk_lp
  3434.         add     hl,de
  3435.         djnz    dsk_lp
  3436.  
  3437.         ex      de,hl
  3438.         xor     a,a
  3439.         ld      bc,$01F9
  3440.         ld      hl,$C000
  3441.         and     a,a
  3442.         call    DISKIO
  3443.         jp      c,disk_error
  3444.  
  3445.         ld      ix,$C000
  3446.  
  3447.         ld      a,($E100)
  3448.         ld      c,a
  3449.  
  3450. file_lp
  3451.         ld      a,(ix)
  3452.         and     a,a
  3453.         jp      z,end_lp
  3454.         ld      b,8
  3455. name_lp
  3456.         ld      a,(ix)
  3457.         inc     ix
  3458.         call    ch_put
  3459.         djnz    name_lp
  3460.  
  3461.         ld      a,'.'
  3462.         call    ch_put
  3463.  
  3464.         ld      b,3
  3465. ext_lp
  3466.         ld      a,(ix)
  3467.         inc     ix
  3468.         call    ch_put
  3469.         djnz    ext_lp
  3470.  
  3471.         ld      de,$0015
  3472.         add     ix,de
  3473.  
  3474.         ld      hl,str_crlf
  3475.         call    prn_text
  3476.  
  3477.         dec     c
  3478.         jr      nz,file_lp
  3479.  
  3480. end_lp
  3481.         
  3482.         jp      hang_up_mode
  3483.  
  3484. ;        ld      de,str_disk
  3485. ;        jp      print_error
  3486.  
  3487. disk_error
  3488.         push    af
  3489.         ld      hl,str_diskerr
  3490.         call    prn_text
  3491.         pop     af
  3492.         ld      b,0
  3493.         ld      c,a
  3494.         ld      hl,str_de_addr
  3495.         add     hl,bc
  3496.  
  3497.         ld      e,(hl)
  3498.         inc     hl
  3499.         ld      d,(hl)
  3500.  
  3501.         ex      de,hl
  3502.         call    prn_text
  3503.  
  3504.         jp      hang_up_mode
  3505.         
  3506.  
  3507.  
  3508. ;---------------------------------
  3509. ;âVâXâeâÇâüâbâZü[âW
  3510. ;---------------------------------
  3511.  
  3512. str_proginfo
  3513. ;                0123456789012345678901234567890123456789 
  3514.         db      "C-BIOS ver 0.17",$0d,$0a
  3515.         db      "Copyright (C) 2002-2003 BouKiCHi",$0d,$0a
  3516.         db      "Copyright (C) 2003 Reikan",$0d,$0a
  3517.         db      $00
  3518.  
  3519. str_slot
  3520.         db      $0d,$0a,"Slot:",$00
  3521. str_chksum
  3522.         db      $0d,$0a,"CheckSum:",$00
  3523. str_isgame
  3524.         db      " Game:",$00
  3525.  
  3526. ;-------------------------------------
  3527. ;âGâëü[âüâbâZü[âW
  3528. str_error_prompt
  3529. ;
  3530.         db      "ERROR:",$00
  3531. str_memory_err
  3532. ;
  3533.         db      "MEMORY NOT FOUND.",$00
  3534.  
  3535. str_no_basic_intr
  3536. ;
  3537.         db      "CALLED NO EXISTANCE BASIC.",$00
  3538.  
  3539. str_disk
  3540. ;
  3541.         db      "CALLED DISK ROUTINE.",$00
  3542.  
  3543. str_stack_error
  3544. ;
  3545.         db      "STACK ERROR.",$00
  3546.  
  3547. str_crlf
  3548.         db      $0d,$0a,$00
  3549.  
  3550. str_flist
  3551.         db      $0d,$0a,"--- display disk file list ---",$0d,$0a,$00
  3552.  
  3553. str_diskerr
  3554.         db      "Disk Error:",$00
  3555.  
  3556. str_de_addr
  3557.         dw str_de_wp
  3558.         dw str_de_nr
  3559.         dw str_de_de
  3560.         dw str_de_se
  3561.         dw str_de_rn
  3562.         dw str_de_wf
  3563.         dw str_de_oe
  3564.  
  3565. str_de_wp
  3566.         db      "Write protected",$0d,$0a,$00
  3567. str_de_nr
  3568.         db      "Not ready",$0d,$0a,$00
  3569. str_de_de
  3570.         db      "Data (CRC) error",$0d,$0a,$00
  3571. str_de_se
  3572.         db      "Seek error",$0d,$0a,$00
  3573. str_de_rn
  3574.         db      "Record not found",$0d,$0a,$00
  3575. str_de_wf
  3576.         db      "Write fault",$0d,$0a,$00
  3577. str_de_oe
  3578.         db      "Other Error",$0d,$0a,$00
  3579.  
  3580. str_nocart
  3581. ;                0123456789012345678901234567890123456789 
  3582.         db      $0d,$0a
  3583.         db      "        Cartridge not found.",$00
  3584.  
  3585. str_run
  3586. ;               [0123456789012345678901234567890123456789] 
  3587.         db      $0d,$0a,$0d,$0a
  3588.         db      "           Starting...",$00
  3589.  
  3590. str_s_test
  3591. ;               [0123456789012345678901234567890123456789] 
  3592.         db      $0d,$0a,$0d,$0a
  3593.         db      "           SOUND TEST MODE",$00
  3594.  
  3595.  
  3596. hex_tbl
  3597.         db      "0123456789ABCDEF",$00
  3598. reg_tbl
  3599.         db      "PC: IY: IX: HL: DE: BC: AF: ",$00
  3600.  
  3601. ;âXâLâââôâRü[âhâeü[âuâï
  3602. scode_tbl
  3603.         db      "01234567"       ;00
  3604.         db      "89-^\@[;"       ;01
  3605.         db      ":],./_ab"       ;02
  3606.         db      "cdefghij"       ;03
  3607.         db      "klmnopqr"       ;04
  3608.         db      "stuvwxyz"       ;05
  3609.         db      $00,$00,$00,$00,$00,$00,$00,$00 ;06
  3610.         db      $00,$00,$1B,$09,$00,$08,$00,$0D ;07
  3611.         db      $20,$00,$00,$00,$1D,$1E,$1F,$1C ;08
  3612.         db      $00,$00,$00,$00,$00,$00,$00,$00 ;09
  3613.         db      $00,$00,$00,$00,$00,$00,$00,$00 ;0a
  3614.  
  3615. scode_tbl_shift
  3616.         db      "0!",$22,"#$%&'" ;00
  3617.         db      "()=~|`{+"       ;01
  3618.         db      "*}<>?_AB"       ;02
  3619.         db      "CDEFGHIJ"       ;03
  3620.         db      "KLMNOPQR"       ;04
  3621.         db      "STUVWXYZ"       ;05
  3622.         db      $00,$00,$00,$00,$00,$00,$00,$00 ;06
  3623.         db      $00,$00,$1B,$09,$00,$08,$00,$0D ;07
  3624.         db      $20,$00,$00,$00,$1D,$1E,$1F,$1C ;08
  3625.         db      $00,$00,$00,$00,$00,$00,$00,$00 ;09
  3626.         db      $00,$00,$00,$00,$00,$00,$00,$00 ;0a
  3627.  
  3628. vdp_bios
  3629.         db      $00,$80,$70,$81,$00,$82,$01,$84
  3630.         db      $f5,$87,$00,$40
  3631.  
  3632.  
  3633. ;    include "cb_snd.a80"
  3634.  
  3635. ;------------
  3636. ;âfâoâbâOùpâtâbâNâïü[â`âôüB
  3637.  
  3638.        org     $3232
  3639. debug_test
  3640.         ret
  3641.  
  3642.     include "b_font.z80"
  3643.  
  3644. ;       include "font_fh.z80"
  3645. ;       include "font_sh.z80"
  3646.  
  3647.         align
  3648.         org     $3FFF
  3649.         nop
  3650.         end     Start
  3651.